
mms ? 1 

TMSfif®® 


(O 


Eg* 




Mr 

M 

* 


L\ N vE 

fS^(o] 




SPECTRUM COMES TO LIFE ! 

ABBEX 


THE GAMES PEOPLE 


SPOOKYMAN 



EAT THE PILLS AND KEEP AWAY FROM 
THE GHOSTS. EAT THE VITAMINS AND 
CHASE THE GHOSTS. FULL MACHINE 
CODE ARCADE ACTION AND SOUND. 
DESIGNED TO MAKE YOUR ADRENALINE 
RUN HIGH. PRICE £4.95 


cosmos you HAVE THE JOB OF PROTECTING A 

CONVOY FROM ALIENS AND METEOR 
STORMS. WATCH OUT FOR THE SPACE 
MINES AS YOU PLAY THIS AMAZING 
MACHINE CODE ARCADE ACTION 
SIMULATION PROGRAM. PRICE £4.95 

OTHER GAMES IN OUR SPECTRUM RANGE INCLUDE: 

ANDROIDS RUN, HIGH NOON, ETX, INVASION, 
FAUST’S FOLLY (Adventure), HARRIER - ALL AT £5.95 


ABBEX ELECTRONICS LTD. 

20 ASHLEY COURT, GREAT NORTHWAY, LONDON NW4 
Tel: 01-203 1465 

PLEASE COMPLETE IN BLOCK CAPS 

NAME (Mr/Mrs/Miss). 

ADDRESS . 

(CARD HOLDERS). 

POST CODE.PHONE NO. 

Make cheques payable to ABBEX ELECTRONICS LTD. 

I enclose my cheque tor £ 

I wish to pay by □ CHEQUE □ ACCESS Signed 

Please debit my creditcard a/c 


Please send me the following 

(Allow 14 days for delivery) 

□ SPOOKYMAN 

PRICE £4.95 

□ COSMOS 

PRICE £4.95 

□ OTHER GAME. 

PRICE £5.95 

□ CATALOGUE 
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7 LETTERS 
ERRORS AND 
MISHAPS 

30 PROGRAM OF THE 
MONTH 

ZX-80 

12 PONTOON 
ZX-81 

9 HAZARD 

11 FRUIT COLLECTOR 

13 MINIPEDE 

19 ZAPMAN 

20 SYMMETRY 
FAST DISPLAY 

21 DIAGONO 

24 EVASION 

25 PLAGUE 

26 PICMAN 

27 TAKE OFF 
29 CLIMBER 

IK LINK 

33 GUNSIGHT 

34 OLYMPICS 

35 DODGER 


38 RALLY 

IK INVADERS 

40 CAVE ADVENTURE 

47 SET RAGGED 
AQUA ATTACK 

49 HIGH POWERS 
CALENDAR 

52 SLUG SLITHER 
ALIEN ATTACK 

53 CURVE FIT 
SPECTRUM 

8 PLING 

13 STAR PATTERNS 

14 SPINVADERS 

22 SPECTRUM FILE 
25 PILOT 

28 SPECTRUM MORSE 
30 PIPELINE 
34 APPOINTMENTS 
36 UNDERSTANDING 
EVOLUTION 

39 DEMOLITION 

41 ZX DEFENDER 

48 REVERSI 

50 SUBMARINE 


To help with entering graphics characters we have adopted a system 
of writing the characters for the ZX-81. We indicate inverse 
characters by the letter i and graphics by g, so that an inverse letter W 
is shown as iW and the graphics character on key 6 is denoted by g6. 

Spaces are shown by sp and inverse spaces are isp. If some occur 
together, for instance a row of six spaces, they are shown by 6*sp and 
where there is a combination of characters each one is divided by a 
colon, thus sp:isp:6*g6 means a space followed by an inverse space 
and then six characters on the 6 key. 

Where whole words are written in inverse letters they appear in the 
listings as lower-case letters. 

In the Spectrum listings the characters are shown as they appear in a 
game with instructions included in the accompanying text. 
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Play in the big league 
— with only the best, 
newest programs! 

We’ve searched for brilliant new program sources throughout 
the U.K. and North America to find an exciting collection of 
new games — and business programs — many of which 
cannot be bought by mail order from any other source! 

Every month, we’ll be adding to our catalogue to bring you the 
best of new games, new business, educational and household 
software. And the good news is — we*re specialising in 
programs for your Sinclair! 

With our special new deal — you just CAN’T GO WRONG. 

* A free offer every month [this time it’s a free blank 
C20 cassette with every two games ordered] 

* A money-back guarantee if you’re not entirely 
satisfied with your purchase — that’s how confident 
we are about the quality and value! 

All you have to do is look at our first HOT selection, then order 
quickly to be among the first to own these games of skill, 
intelligence and excitement [fast delivery is another of our 
specialities — so you could be using these new programs 

FREE BLANK C20 COMPUTER CASSETTE 
WITH EVERY TWO CASSETTES YOU ORDER! 

Remember there’s no limit to the number of free 
cassettes you receive if your order justifies them — so 
why not get together with friends or user group 
members and share the freebies? 


guarantee 

Order w £ h 

not entirely MtisTiea wlt hin 7 

V °r P “^we wm fe^ace or provide a ( 
d!> r!fund - whichever you specify. 


GREAT VALUE! TREMENDOUS SELECTION! PLUS A FREE 
OFFER EVERY TIME! 

Fill in the order form right away — we’re guaranteeing fast 
delivery, quality and satisfaction [after all, we want you to 
come back for more!] 

The Software Workshop, Yew Tree, Selborne, 

Hants GU34 3JP 
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Here’s a whole NEW selection of 

the latest games, the best-value software 

for your ZX-81 or Spectrum. 


ZX81 Software 

1-01 Stock Market 

Buy and sell your way to millions! 

1 BK RAM £3.95 

1 -02 Football League 

First division fun for the soccer 

enthusiast. 16K RAM £3.95 

1 -03 Test Match 

Match your wits alongside the 

superstars. 16K RAM £3.95 

1-11 Arcade Action 

Overtaker/Missile Man/Space Fighter/ 

Pilot/Greedy Gobbler/Extra Terrestrial. 

IK £4.95 

1-12 Avenger 

Avoid missiles and bombs to become the 

ruler 16K RAM £4.95 

1-13 Protector 

Defend your own ship from oncoming 

attackers. 16K RAM £4.95 

1 -21 Football Manager 

Manage your team through a hectic 

league season! 16K RAM £5.95 

1-31 Comp-U-Share 

Investment management program for 
unit trusts, shares and loan stocks. 

Complete documentation included. 

16K RAM £9.95 

1 -32 Comp-U-Tax 

Accurate personal income tax calculator 

for 82/83 tax year. Full documentation 

included. 16K RAM £9.95 


Spectrum Software 

2-12 Avenger 

[See 1-12 under ZXBl). 4BK RAM 

2-13 Sentinel 

Guard your mother ship aganst alien 
attacks. 48K RAM 


£4.95 

£4.95 


2-14 Meteor Storm 

Spectrum version of the even-popular 
arcade game. 16K or 48K FIAM 

2-15 Star Trek 

Popular space program brought to life by 
excellent graphics. 48K RAM 

2-21 Frogger 

Manoeuvre the frog across the road 
avoiding heavy traffic. 48K RAM 

2-22 Crazy Balloons 

Guide the balloons round the maze 
without bursting. 48K RAM 

2-23 Arcadia 

The expert's version of the popular 
Invaders' game. 16K or 48K FIAM 

2-24 Golf 

The finest of golf handicap games. 

48K RAM 

2-25 Test Match 

More exciting than the real thing! 

48K RAM 

2-26 Derby Day 

This favourite has to be a winner 
48K RAM 

2-27 Rescue 

Rescue the Pnncess from marauding 
patrols. 48K RAM 

2-28 The Orb 

Discover the Orb in the depths of the 
temple but watch the monsters. 

48K RAM 

2-29 Jackpot 

The harmless way to take on the one- 
armed bandit 48K RAM 

2-31 Football Manager 

See 1 -21 under ZX81 48K RAM 

2-41 Comp-U-Share 

See 1 -31 under ZX81.48K RAM 

2-42 Comp-U-Tax 

See 1 -32 under ZXBl 48K RAM 


£4.95 

£4.95 

£5.95 

£5.95 

£5.95 

£5.95 

£5.95 

£5.95 

£5.95 

£5.95 

£5.95 

£6.95 

£9.95 

£9.95 


[Vo: The Software Workshop, Yew Tree, Selborne, Hants GU34 3jp"| 

1 I wish to order the following programs. I understand that: 1 


* I will receive a FREE blank cassette with every 2 programs ordered 

* I can return products within seven days if not entirely satisfied and 
receive a full refund or replacement programs to the same value. 


Ref No 

Qty 

Title 

Price 


























Postage, packing and handling: add 45p for the 
first cassette, and 25p for each additional 
cassette. Non-UK orders add extra 50% 

I enclose a cheque/postal order for_ 

Name._ 

Address_ 


[Allow 28 days MAXIMUM FOR DELIVERY] 


Total 
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C.C.S. MANAGEMENT GAMES 


16K ZX81 
Spectrum 



DALLAS 

A game of oil exploration and exploitation ir 
Texas. Decisions are required on purchasing con 


AIRLINE 

Can you compete with British Airways? You 
must decide on the number of aircraft to operate. 


is. the movement and use of drilling rigs. whether to buy or charter, and the levels of 


and the building of platforms and pipelines. Can 
you take-over the Ewing Empire, or will you be 
taken-over in the attempt! 


es. Can staffing and maintenance. Problems encoun- 
you be tered are tax demands, strikes, cancelled flights, 
hiiacks and aircraft crashes 


must predict the inflation 
to resign if you are not s 
levels of difficulty. 


AUTOCHEF PRINT SHOP 

As MD of a Catering Company you must nego You own a small printing company and are 
for leases, decide on menu prices, level of required to decide on la) the number and type of 

ss, advertising and dividends. Each year you staff you employ and when to increase or reduce 

: predict the inflation rate. You will be made staff lb) the amount and type of paper you stock 
sign if you are not successful. There are 3 (c) the week in which work is scheduled Id) the 

s of difficulty. quotation for each. There are 3 scales of 

difficulty. 


ALL PROGRAMS AVAILABLE 
FOR 16K ZX-81, 

! SPECTRUM 16K AND 48K 


FARMER is a simulation for running a large wheat farm. 
Decisions are required on when to plant, irrigate, fertilize, spray and 
harvest your land and whether to purchase seed com. land or farm 
machinery or whether to employ more farm workers. 



EXCELLENT ROYALTIES 
PAID FOR SINCLAIR 
SOFTWARE. 


PRICES 2X81 16K & SPECTRUM 16K. £5 for 1, £8.50 for 2. £12 for 3 £15.50 for 4 & £19 for 5. 

(MAIL ORDER) SPECTRUM 48K, £6 for 1. £10.50 for 2. £15 for 3. £19.50 for 4 & £24 for 5. 

TO ORDER Please state computer type and send cheque to:- 

DEPT.S., CASES COMPUTER SIMULATIONS 14 LANGTON WAY, LONDON SE3 7TL. 
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Machine balance 


AS AN enthusiastic ZX-81 
16K user and subscriber to 
Sinclair Programs and Sin¬ 
clair Projects, I must call your 
attention to the trend appar¬ 
ent in the following table — 
approximate number of pro¬ 
grams per issue of Sinclair 
Programs: 

Nov/ Jan / Mar/ 
Dec Feb Apr 
Spectrum 7 10 14 

ZX-80 2 3 2 

ZX-81 - IK 15 18 18 

ZX-81 - 16K 16 9 6 

I am alarmed by the col¬ 
lapse of the service to the 
16K user, in favour of the 
Spectrum, while maintaining 
that to the IK user. 

I suggest that you favour 
the IK program to achieve 
the 40 program figure as eco¬ 
nomically as possible. 

The ZX-81 is the most 
widely-sold micro and the 
16K RAM the most useful 


and popular accessory. With¬ 
out it the ZX-81 can only just 
demonstrate its ability. 

The Spectrum, while be¬ 
ing a superior machine, is 
still not so widespread as the 
ZX-81 and with the growing 
competition and delivery de¬ 
lays, may never be so. 

In this field things are ma¬ 
turing fast and it is time you 
reconsidered your 40-pro¬ 
gram policy and opted for 
quality instead of quantity. 

Why not offer readers a 
budget 16K RAM pack as a 
special offer and thus get into 
the hardware side? 

I hope you find this useful 
as I mean my criticism to be 
constructive. We share the 
common aim, albeit for dif¬ 
ferent reasons, of wanting a 
better, more comprehensive 
Sinclair Programs with even 
wider circulation. 

Stanley McKeown, 
Belfast. 


Shortage of 
IK listings 

I AM writing to congratulate 
you on the decision to pub¬ 
lish Sinclair Programs month¬ 
ly. I have, however, one 
complaint. I have a ZX-81 
and when I open this excel¬ 
lent magazine, to my dismay 
I find one-third of the pro¬ 
grams are for the Spectrum. 

I am sure many Spectrum 
owners feel the same, so why 
can we not have two maga¬ 
zines, one for each machine 
produced bi-monthly? 

Chris Calvert, 
Barrow-in-Furness. 


Good worm 

I WOULD like to say that 
the programs in your maga¬ 
zines are most enjoyable. I 
like especially The Worm 


game in Sinclair Programs. 
My dad and I enjoy playing 
the game. We became in¬ 
volved in the game when we 
first programmed it in that 
we nearly forgot to record it. 
I reached stage seven but did 
not succeed the jump. 

T Calhoun (age 12), 
Gillingham, Kent. 


16K plea 

I BOUGHT the March/April 
Sinclair Programs, only to 
discover that very few of the 
long 16K programs have 
been written for the ZX-81. I 
would be most grateful if you 
could include more long and 
complex games for the 16K 
ZX-81 as I am sure more 
people would like them. 

Neil Churchill, 
Wirral, 
Merseyside. 


ERRORS AND 
MISHAPS 



THE GREMLINS worried our printer 
again last month. Unfortunately what 
many regarded as the best program in 
the magazine. Worm Game, did not 
escape trouble. Lines 9008 and 9009 
were in the incorrect order. Line 9009 
found its way to the bottom of column 
two on page 27. The other problem 
with the game was that line 6050 should 


read BEEP 3.3,X: NEXT X: GOTO 
9000. 

Blob Muncher had “ = ” missing at 
line 70. It should read 70 IF Y=40 
THEN LET Y=40. 

Frogger had line 1 missing from it. 
The line is 1 LET H = 0. 

Jackpot was the worst offender. Five 
lines were missing. They are: 


75 PRINT AT 4, 12; F-10; " " 

120 PRINT AT 1, 7;A 
190 LET F=F-10 

220 IF F=0 THEN STOP 

221 GOTO 50 

Unfortunately our reviewer claimed 
that Beach Comber and Tank Attack 
were IK programs for the ZX-81. They 
are, in fact, 16K programs. 
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H AZARD is a game of the sur¬ 
round type, in which two play¬ 
ers take turns in steering their 
way among scattered obstacles in an 
attempt to corner an opponent. The 
game is very well laid out, full instruc¬ 
tions being given to players and succes¬ 
sive turns being indicated by a flashing 
of the PLOT position. Moves are en¬ 
tered with keys 5 to 8. 

This diverting routine was sent by J 
Temperton of Market Weighton, York¬ 
shire. In our listing, lower-case letters 
indicate inverse video except when ap¬ 
pearing in brackets, when they are 
graphics instructions. (16K ZX-81). 


27 PPINT " YOU APE BOTH CARRYI 
NG FRAGILE EXPLOSIVES, ANY CONT 
ROT WITH ANYBLOCK AND YOUPE DEAD 
, YOU MUST STALK EACH OTHER IJNT 
ILL YOU CAN APPLY THE EXPLOSIVES 
TO YOUR OPPONENT SAFELY. 

TO HELP CORNER THE 
ENEMY YOU LAY BLOCKS ALSO." 

20 PRINT " PLAYERS TAKE TURNS, 
WITH FIVE BLOCKS A GO." 

30 PRINT 

32 PPINT " THE NORMAL KEYS <5 
TO 0) APE USED FOR CONTROL OF 
YOUR VEHICLE 

PRESS ""NEW LINE"" 

TO START." 

34 INPUT A« 

35 LET W-0 
37 LET U-0 
30 LET J-0 
40 LET Z-0 
45 FAST 


50 CLS 

51 DIM A< 34,30) 

52 FOR N-0 TO 00 

53 LET A-INT <RND*34)+1 
55 LET B-INT <RND*30>+1 
60 LET A<A,B>-1 

62 PLOT A+13,B+1 
65 NEXT N 
67 SLOW 
70 LET Z-Z+l 

72 LET S-0 

73 LET Y-<Z^2>-INT <Z^2> 

75 PRINT AT 0,0;" *1* BE 

CAREFULL *2*" 

77 PRINT 

70 PRINT "BLOCKS";TAB 26J"BLOC 
KS" 

00 PRINT "LEFT";TAB 26;"LEFT" 
02 PRINT "•0";TAB 26;"-0" 

86 PRINT AT 20,0;"GAMES" 

09 PRINT AT 20,26;"GAMES" 

90 FOR N-2 TO 20 


92 PRINT AT 1,N+4;"<9r*Phic H> 
"; AT 21, N+4; "( Phie H>" 

94 PPINT AT N,6;“<9r*Phic H)"j 
AT N, 24; "(QraPhic H>" 

96 NEXT N 

90 PRINT AT 21,2;W;AT 21,28;U 
102 LET A-14 
104 LET B-21 
106 LET C-47 
100 LET D-21 

112 IF Y< >0 THEN GOTO 600 

115 LET H-5 

117 PLOT A,B 

110 PRINT AT 4,27; H 

119 IF INKEY« >"" THEN GOTO 119 

120 PLOT C,D 

125 IF INKEY*»"5" AND 0014 THE 
N GOTO 310 

135 IF INKEYS-"7" AND D<>39 THE 
N GOTO 330 

145 IF INKEY*-"6" AND D<>2 THEN 
GOTO 350 
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449 LET P-P 

449 IF P>14 THEN LET P-14 

450 FOR M-l TO 16-P 

452 PLOT C,D+M 

453 PLOT C, D-M 

454 PLOT C+M, D 

455 PLOT C-M,D 

456 PLOT C+M,D+M 

457 PLOT C-M,D+M 

458 PLOT C-M,D-M 

459 PLOT C+M,D-M 

460 UNPLOT C,D+M 

461 UNPLOT C,D-M 

462 UNPLOT C+M,D 

463 UNPLOT C-M,D 

464 UNPLOT C+M,D+M 

465 UNPLOT C-M,D+M 

466 UNPLOT C-M,D-M 

467 UNPLOT C+M,D-M 
470 NEXT M 

473 IF S-3 THEN GOTO 760 

474 IF S-2 THEN GOTO 705 

475 IF S-l THEN GOTO 530 

476 LET J-157 

477 LET W-W+i 

480 PRINT RT l,6j"Pla»er 2 cr 
ashed" 

482 PRINT RT 21,2jW;" Same 
to Player";CHR* Jj" "jU 
484 LET C*-STR* <W+U) 

486 PRINT RT 21,11;CHP* (VRL C* 
(1>+156) 

488 IF (U+W)>9 THEN PRINT RT 21 
, 12;CHR* (VRL C*(2>+156> 

490 PRINT RT 0,4j"PRESS ""G"" F 
OR NEXT GRME" 

492 IF INKEY*-"G" THEN GOTO 45 
495 PRINT RT 0,4j" 


505 LET D-B 
508 LET U-U+l 
510 LET S-l 
515 LET J-158 
520 GOTO 440 

530 PRINT RT 1,6j"P layer 1 cr 
ashed" 

535 GOTO 482 
600 LET G-5 

602 PLOT C,D 

603 PRINT RT 4,IjG 

604 IF INKEY*< >"" THEN GOTO 600 

605 PLOT R,B 

607 IF INKEY*-"5" RND R014 THE 
N GOTO 300 

610 IF INKEY*-"7" RND B<>39 THE 
N GOTO 320 

615 IF INKEY*-"6" AND B<>2 THEN 
GOTO 340 

620 IF INKEY*»"8" AND fl<>47 THE 
N GOTO 360 
630 UNPLOT R,B 
650 LET fl(fl-13,B-l>-l 
660 IF G-0 THEN GOTO 115 
680 GOTO 605 
700 LET S-2 
702 GOTO 440 
702 GOTO 440 
705 LET U-U+l 
710 LET J-158 

713 PRINT RT 1,6; " mission o 
ver " 

715 GOTO 482 
750 LET S-3 
755 GOTO 440 
760 LET W-W+l 
765 LET J-157 

770 PRINT RT 1,6;" mission o 
ver" 

775 GOTO 482 


N GOTO 370 
160 UNPLOT C,D 
230 LET fl< C-13,D-l>-l 
235 IF H-0 THEN GOTO 600 
240 GOTO 120 
300 LET-R-A-l 
305 GOTO 400 
310 LET C-C-l 
315 GOTO 410 
320 LET B-B+l 
325 GOTO 400 
330 LET D-D+l 
335 GOTO 410 
340 LET B-B-l 
345 GOTO 400 
350 LET D-D-l 
355 GOTO 410 
360 LET fl-R+1 
365 GOTO 400 
370 LET C-C+l 
375 GOTO 410 

400 IF fl-C RND B-D THEN GOTO 75 


401 IF fl< R-13,B-l>-l THEN GOTO 

500 

402 LET G-G-l 

403 PRINT RT 4,1;G;" " 

406 GOTO 650 

410 IF C-fl AND D-B THEN GOTO 70 


413 IF fl< C-13,D-l>-l THEN GOTO 

440 

415 LET H-H-l 

417 PRINT RT 4,27;H;" " 

430 GOTO 200 

440 LET R-RBS (C-30) 

442 LET T-RBS (D-18) 

444 IF R>T THEN GOTO 448 

446 LET P-T 

447 GOTO 449 


10 
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F RUIT COLLECTOR is an ex¬ 
cellent ZX-81 version of the ar¬ 
cade game Kong. The object is to 
climb the ladders, through the different 
levels, and collect the fruit—an inverse 
F. You can be killed either by falling 
from a level or by being hit by one of 
the rolling barrels which career across 
the screen at frequent intervals. 

You score 25 for every fruit picked 
but one snag is that fruit hit by a barrel 
is squashed flat and will not re-appear 
until the barrel has reached the end of 
its run. 

Go up with W, left with A, right with 
D and down with X. The E key will 
provoke an athletic leap over the bar¬ 
rels. A very impressive listing from R N 
Ardron of Poulton-le-Fylde, Lanca- 
(16K ZX-81). 


TRUIT COLLECTOR 


10 

LET S-0 

204 

PRINT AT 19,C;"0 " 


1081 

IF A-13 AND B<>7 THEN RETUR 

30 

LET A*19 

205 

PRINT AT 10,C;"0 " 


N 


40 

LET B-10 

206 

PRINT AT 13,C; '*0 " 


1082 

IF A-16 AND B< >18 THEN PETU 

45 

LET E-INT <RND*22>+2 

210 

IF INKEY*-"W" THEN GOSUB 

10 

RN 


46 

CLS 

00 



1083 

IF A-19 THEN RETURN 

50 

LET D-INT <RND*4> 

220 

IF INKEY*-'*D" THEN GOSUB 

10 

1090 

PRINT AT A,6;" " 

51 

IF D-0 THEN LET F-10 

20 



1091 

LET A-A+l 

52 

IF D-l THEN LET F-13 

230 

IF INKEY*-"A" THEN GOSUB 

10 

1100 

RETURN 

53 

IF D-2 THEN LET F-16 

40 



2000 

PRINT "FELL OFF EDGE" 

54 

IF D-3 THEN LET F-19 

240 

IF INKEY*-"X" THEN GOSUB 

10 

2010 

PRINT AT 0.0;"SCOPE-";S 

56 

PRINT AT F,E;"<inverse F>" 

80 



2020 

GOTO 4020 

re 

PRINT AT 11,2;"<24*9raPhic 

290 

NEXT C 


2025 

PRINT AT A,B;" " 

A>" 


300 

GOTO 80 


2030 

LET A-A-l 

72 

PRINT AT 14,2;"<5*9r*Phic A 

1000 

IF A-19 AND B< >18 THEN RETIJ 

2035 

LET B-B+l 

;SPACE;18*9raPhic A>" 

RN 



2040 

PRINT AT A, Bj "* h 

74 

PRINT AT 17,2;"<16*9r*Phic 

1001 

IF A-16 AND B<>7 THEN RETUR 

2850 

PRINT AT A,B;" " 

A; SPACE; 7*9raPhic A)'* 

N 



2060 

LET B-B+l 

76 

PRINT AT 11,2;"<24*9raPhic 

1002 

IF A-13 AND B< >13 THEN RETU 

2070 

PRINT AT A,B; 

A 


RN 



2080 

PRINT AT A,B ; " " 

78 

FOR C-25 TO 1 STEP -1 

1010 

PRINT AT A,B," " 


2090 

LET A-A+l 

80 

PRINT AT 12,13;"H m 

1012 

LET A-A-l 


2095 

LET B-B+l 

90 

PRINT AT 13,13;"H" 

1019 

RETURN 


2100 

PRINT AT A,B; 

100 

IF A-F AND E-B THEN GOTO 50 

1020 

IF 8-25 THEN GOTO 2000 


2110 

PRINT AT A,B;" " 

00 


1030 

PRINT AT A,8;" " 


2120 

RETURN 

110 

PRINT AT 15,7;"H" 

1031 

LET B-B+l 


4010 

PRINT "HIT BY A BARREL" 

120 

PRINT AT 16,7;"H" 

1032 

IF B-C THEN GOTO 4020 


4015 

PRINT AT 0,0;"SCORE-" ;S 

140 

PRINT AT 18,18;"H" 

1039 

RETURN 


4020 

PRINT "ANOTHER GAME?< Y/'N)" 

150 

PRINT AT 19,18;"H" 

1040 

IF B-2 THEN GOTO 2000 


4030 

INPUT A* 

190 

PRINT AT A,8; 

1050 

PRINT AT A,B;" " 


4040 

IF A*-"Y" THEN GOTO 1 

200 

PRINT AT 16,C;"0 " 

1051 

LET B-B-l 


4050 

IF A*-"N" THEN STOP 

201 

IF C-B THEN GOTO 4000 

1059 

RETURN 


4060 

GOTO 4030 

202 

IF C-2 THEN GOTO 4400 

1080 

IF A-10 AND B< >13 THEN RETU 

4450 

GOTO 56 

203 

IF INKEY*-"E" THEN GOSUB 20 

RN 



5000 

LET S-S+50 

25 





5010 

GOTO 45 
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PONTOON 
1 LET C=0 

10 PRINT “HOW MANY 
PLAYERS?” 

20 INPUT A 
30 DIM F (A) 

40 LET B = RND(11) 

50 LET C=C + B 

60 IF 021 THEN GOTO 80 

70 GOTO 40 

80 LET C=C—B 

90 FOR D=1 to A 

95 CLS 

100 PRINT “YOUR TURN 
PLAYER”; D 
105 PRINT 

110 IF F(D-1)>21 THEN PRINT 
“PLAYER”; D-l; “ BUST” 

115 LET E — RND (10) 

120 IF E= 1 THEN GOSUB 260 
125 LET F(D)=F(D) + E 
130 PRINT 
135 PRINT “(3x g W)” 

140 PRINT 
145 PRINT F(D) 

150 PRINT “(3x g W)” 

155 PRINT 

160 IF F(D)>21 THEN GOTO 185 


165 PRINT “ ANOTHER CARD? 

(Y OR N)” 

170 INPUT G$ 

175 CLS 

180 IF G$ = “Y” THEN GOTO 115 
185 NEXT D 
190 CLS 

200 FOR D= 1 to A 

201 IF F(D)>21 THEN PRINT 
“PLAYER”; D; “BUST” 

205 IF F(D) < 22 THEN PRINT 
“PLAYER”; D; “SCORED”; 
F(D) 

210 PRINT 
215 NEXT D 

220 PRINT ‘TVE GOT”; C 
225 PRINT 

230 PRINT “ANOTHER GAME? 

(Y OR N)” 

235 INPUT H$ 

240 CLS 

245 IF H$ = “Y” THEN RUN 
250 STOP 

260 PRINT “ACE-1 or 11?” 

265 INPUT X 
270 LET E=X 
275 RETURN 


W E ARE becoming short of ZX- 
80 programs. Are all you oldie 
owners running out of steam? 
Pontoon 80 does what you would 
expect, enabling you to play the com¬ 
puter and other humans. Lines 40 to 80 
determine the computer score and are 
arranged so that it cannot bust; perhaps 
readers might be able to find a more 
equitable method? 

The routine is very straightforward, 
each player being supplied with 
prompts and the computer score being 
revealed at the end of the game. G Gill 
of Westerham, Kent wrote the listing. 
(IK ZX-80). 
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M INIPEDE is a quick and easy 
program for the IK ZX-81. 
You are the multi-legged insect 
creeping through the undergrowth, 
munching the flavoursome flies (W), 
crunching the savoury spiders (aster¬ 
isks) and avoiding the murderous mush¬ 
rooms (T). 


Score one point for the flies and five 
for the spiders. Squirm left with the 5, 
turn right with the 8, and your score 
will be displayed when you die. 

G Creasy of Ashford, Kent, who 
wrote the program, reports a personal 
best of 152. 


Y OU KNOW the intervals in the 
cinema when they sell ice-cream? 
You know when you walk into a 
lamp-post? You know those moments 
for which Channel 4 cannot find adver¬ 
tisements? This program for the 16K 
Spectrum makes patterns like that. 

As a demonstration of the Spectrum 
high-resolution graphics, Star is very 
impressive, producing multi-faceted 


polygons to order by means of the 
mathematics in lines 70 to 190. The 
program proceeds by dividing a circle 
into n parts to obtain the angle at the 
centre, finding the co-ordinates of those 
n points—where s is the radius and 
cx,cy the centre of the circle—and then 
drawing a line from every point to every 
other point. The listing was submitted 
by L J Wilkinson of Stockton-on-Tees. 
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100 REM ==ONE -T IME = = 

120 LET game =0: LET hs=8 
14-0 DIM a $ (5) : DIM a (65) : DIM b 
(65) : DIM S (6S) DIM C <65) 

160 RANDOMIZE 

500 REM ==GRRPHICS== 

510 DflTfl "A".16,66,72,1,20,63,3 

* 520 DfiTfl "B",0,24,24,24,24,60,2 
^5,2o5 

530 DATA "C",0,129,66,60,36,24-, 
36,0 

54-0 DflTfl ”D“,0,36,60,36,126,126 
, 90,0 

550 DflTfl "E" , 15,31,63,127,255,2 
55,255,255 

560 DflTfl "F”,240,248,252,254,25 
S , 255,255,255 

570 DflTfl "G" ,0,24-, 24-, 24-, 0,0,0,0 
600 FOR n =1 TO 7: READ 9* FOR 
i=0 TO 7: READ a. POKE USR g$ + i, 
B: NEXT i: NEXT n 
620 LET a$ (2) =•**••: LET a$(5)="V 
700 REM ==S£T-UP== 

720 LET SC=0 
740 LET r=. 3: LET y =4- 
760 LET S =0: LET 9=16 
300 BORDER 0: CLS 

820 PRINT A'^16,0; " 4m 

\ 840 print a^?7, 0 ; •• am ■ mi 

860 PRINT AT 18,0; " MB MB 

ii ■■ warn 

380 PRINT AT 20,g; "X" 

300 PRINT AT 0,2;"Score:SC 
310 PRINT AT 0,23; INK i;"V"; I 
NK 0; " =5 •*; INK 2; "M"; INK 0;" = 

2" 

920 IF ga»eo0 THEN GO TO 3000 
980 REM ==INTRO = = 

1000 FOR J =1 TO 3: FOR n=30 TO 6 
0: BEEP .01,n: NEXT n. NEXT i 
1020 PRINT AT 10,3, FLASH 1;" Do 
you want instructions? " 

104.0 IF INKEY*="" THEN GO TO 184 

1060 PRINT AT 10,0;" 

I860 IF INKEY*="y" OR INKEY*="Y" 
THEN GO TO 1140 

1100 IF INKEY*="n" OR INKEY$="N" 
THEN GO TO 3000 
1120 GO TO 1020 

1160 PRINT AT 4,12; FLASH 1;"INU 
flDERS" 

1300 PRINT RT 6,0;- The very 

simple aim of this" 

1320 PRINT " Simple game is to 
destroy the" 

1340 PRINT ” invaders that are 
landing on " 

1360 print " the earth." 

1380 PRINT '" You control you 

r base with" 

1400 PRINT the keys '5' and ' 

S' and fire" 

1420 PRINT " with key '7'." 

1440 PRINT " © R 

.Luctett. 

1460 INPUT " Press ENTER to sta 
r t. "; LINE X $ 

1500 FOR i=4 TQ IS 
1520 PRINT RT i,0," 

154.0 NEXT i 

3000 REM ==INUflDERS== 

3020 FOR i=1 TO 2 

3040 FOR J=1 TO 13 

3060 LET X=13*(i-1)+J 

3080 LET S(X)=5: LET C(X)=1 

3 3.0® LET btx) =2+2*i 

3120 LET a (X) =i + J *2 

3200 FOR i=1 TO 3 

3220 FOR j=l TO 13 


3240 LET X=26+13*li — 1)+ J 
3260 LET S CX) =2: LET C(X)=2 
3230 LET b(X)=6+2*i 
3300 LET a (X) =i + j *2 

3320 PRINT INK c(x);flT b(X),a(x) 

; a $ (s (x) ) 

3340 NEXT j 
336© NEXT i 
1000 REM ==LOOP== 

4.020 FOR n=l TO 65 
4060 LET 3 1=g 

4100 IF INKEY $ = **" THEN GO TO 450 

4128 IF INKEY$="3" THEN LET 3=3+ 
1: GO TO 4300 

4140 IF INKEY $ = "5" THEN LET g =g - 
1: GO TO 4300 

3140 PRINT INK C(X),AT b(x),a(X j 

.;a$is(xn 

3160 NEXT j 
3180 NEXT i 

4160 IF INKEY*="7" AND INT tn/y) 
=n/y THEN GO TO 4200 
4160 GO TO 45O0 
4190 REM ==FIRE== 

4200 LET i1=19 

4210 FOR i=18 TO 3 STEP -1 

4220 IF POINT (g*8+2, (21-i) *8+4) 

=1 THEN GO TO 4240 

4230 PRINT RT i1,: PRINT RT 

i,g; INK 3;.: LET il=i: NEXT 

i: GO TO 4280 

4240 IF POINT (g*S,(21-i)*8)=1 T 
HEN GO TO 4280 

4250 IF POINT (9*6, (21-i)*6+6)=1 
THEN LET SC=SC+3 
4260 LET SC=SC+2: PRINT AT 0,8;s 

4270 IF SC=208 OR SC=436 OR sC=6 
54 OR SC =692 THEN PRINT AT il,g; 
" PRINT RT i ,g , INK 2; ; BE 

EP .5,-50: PRINT RT i,9," : GO 

TO 6000 

4280 PRINT AT i1,g;" ": PRINT RT 

i,g, INK 2; *•&•'*: BEEP .5,-50: PR 
INT AT i , g ; " " 

429© GO TO 450© 

4300 REM ==MOUE== 

4320 PRINT RT 28,gl;" " 

4340 IF g >29 OR 9 <2 THEN LET g=g 

4360 PRINT RT 20,g;"A" 

4SJ00.-RFM =ts;TNUA0ERS = = 

4520 IF a(n)=0 TMEN GO TO 7000 
4540 IF POINT (a (n) *8+2, (21-b(n) 

)*8+4)=0 THEN LET a(n)=0: GO TO 
7000 

5440 PRINT AT b(n),3(n);" " 

5460 LET a(n)=a(n)+i 
5480 IF a Cn) =30 THEN LET b(n)=b( 
D) +2: LET a (n) =2: IF b(n)=18 THE 
N GO TO 8408 

5520 PRINT INK c(n);RT b(n),a(n) 

; a $ (s (n ) ) 

5000 REM ==ATTflCK== 

5020 IF RND <r THEN GO TO 7000 

5040 LET h=INT (RND*65) +1 

5100 IF POINT (a (h) *8+2, (21-b(h) 

5*8+4)=0 THEN LET h=n 

5140 PRINT FLASH 1; INK C(h);AT 

bfh),a(h);a$(s(h)) 

5160 FOR i=16 TO 18 

5180 IF POINT (a(h)*8,(21-i)*8)= 
1 THEN GO TO 6240 
5200 NEXT i 
5220 LET i=20 

5240 PRINT AT i,a(h); INK 2;"£"; 
BEEP .1,-30: PRINT AT i,Ath>;" 

5260 IF i=20 AND a(h)=g THEN GO 
TO 8300 

5280 PRINT FLASH 0; INK C(h);AT 
b(h) ,a(h);a$(s<h)) 

5300 GO TO 700© 

7000 NEXT n: GO TO 4000 
S000 REM ==UIN== 
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W E HEREBY inaugurate a new 
quest for the Sinclair Program¬ 
mer Our Spacman project is, 
we think, approaching its triumphant 
conclusion—we can feel you all closing- 
in on that elusive muncher—so it is just 
the time to implant a new ambition in 
your heads. 

Send us an arcade-quality Invaders 
game. Fast moving, colourful, with all 
appropriate effects. 

R Luckett of Stratford-on-Avon has 
provided all you need to begin the 
project. His program gives you the laser 
base, the rows of descending aliens and 
the disintegrating bunkers to lurk be¬ 
hind. It is a little slow, however, and the 
power beams from the aliens are invisi- 


S020 PRINT RT 3,0; FLASH 1; " The 
invaders now shoot faster- ** 
304.0 IF r =. 4. THEN GO TO 8100 
3060 LET r =r-.1 
3080 LET y=y-l 

3100 FOR n =1 TO 10: BEEP .3,10: 

PRUSE n/3+1: NEXT n 

6120 PRINT AT 3,0; FLASH 0; " . 

614-0 PAUSE 1. PAUSE 1: PAUSE 1 
=>AUSE 10 

5160 LET StMC + 20: PRINT RT 0.2; 
•SCORE: **,* SC; " '* 

3150 GO TO 3000 
3200 REH ==LRNDED== 

5220 PRINT AT 3,0; FLASH I;" 

THEY UE LANDED 

3240 FOR n =1 TO 15: BEEP .1,-30: 

PAUSE l+RNDN: NEXT n 
3260 PRINT AT 3,0; FLASH 0,” 

3300 REM ==LOSE== 

5320 FOR n =1 TO 10: BEEP RND .60: 

PAUSE (RNDf3)+l: NEXT n 
334.0 BORDER 7: CLS 

3360 PRINT RT 6,0;" To 

O Bad! 

5360 PRINT Better luck nex 

t t i m e ! 

34.00 print ; Score.- **; 

sc; " 

3430 IF SOhS THEN LET hS =S C 
34-4.0 PRINT High score:”; 

3500 PRINT RT 18,0; FLRSH 1;" 

Do you want another game'? 

354-0 IF INKEY $ = ” ” THEN GO TO 554- 

3 

5560 IF INKEY*="y” OR INKEY$=“Y" 
THEN LET ga»e=l: GO TO 700 
3560 IF INKEY$=”n" OR INKEY$="N” 
THEN CLS : GO TO 9900 
3600 GO TO 3540 


ble. Race right with 8, lurch left with 820—Graphic E, inverse space, graphic 

the 5, and 7 shoots your blaster beam. F. 

(48K Spectrum). Graphics notes: 880—Graphic B 

620—Graphic D, graphic C 4230—Graphic G. 
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What the 
experts say: 

Sinclair User quality 

•USE AND LEARN 

Sinclair User excellent 

What Micro, /tremendously valuable. .. 

GET THE BEST OUT OF SPECTRUM BASIC” 

ZX Computing EXCELLENT .AGREAT 
ASSET...FANTASTIC VALUE.. VERY HIGHLY 
RECOMMENDED” 

•THE DATABASE 

Sinclair User /excellent 

•THE SPREADSHEET 

Personal Computer News easy 

TO USE... PLENTY OF USES... STREETS AHEAD” 
(OFGEMINI'S SPREADSHEET) 

Sinclair User. . /excellent. .. much 

CLEARER” (THAN VU-CALC) 

What Micro .‘.‘QUALITY” 


MICROL 

Not available inany Store- 
Order TODAY for fast 
convenient delivery 




THE THOUGHT 

PROCESSOR 


USE AND LEARN 

Your perfect Spectrum starter Kit. Mr .^ 

25 original BASIC programs you Mr 

can use immediately, PLUS 118 Mr W* 

page manual to help you get the /f 

most from your 16or48K Spectrum./T * /jfi 

25 programs include: 

Music Composer, World Atlas, ML 

Computer Term Glossary.Screen ML 

Designer, Star Maps - PLUS Mf> 

games and powerful routines to Mb , 7 

use in your own programs: Mr 

graph-drawing, text-editing, Mr I T 

sorting, searching and much Mb (EBB 

more. 118 page manual MC 

includes detailed description Ca 

of programming techniques, full 

listings of all programs, and articles to .. 

develop your own program-writing skills. ^ i,ii siss i5s 
‘ Excellent'' A.R. West, Surrey. "First-time loading, 
user-friendly, superb documentation" J.E. Mann, Leeds. 


THE DATABASE 

Whether you want to update mailing / B 

lists, manage customer accounts, or / ± 

simply produce an index of your / V, 

record collection, THE DATABASE / 

makes it easy and enjoyable. / ” f ft a 

A breakthrough in power and / 

practicality, THE DATABASE / 

allows you to store information / 

on any subject in the way you / 

want, and gives you a full range / j* 

of commands to display, update,/ Mr " 

sort, search and print / 

- even perform calculations. / 

Massive storage capacity: # ^ c 

1,000 lines in memory at a timeM^. 4SSf -V<; K 
over 7,000 names and addresses ona s, s > . Wfv 
single C90 cassette. See for yourself why 
THE DATABASE is the most advanced 48K Spectrum*" 
database available - far more powerful and practical 
than Sinclair's VU-FILE and all other "competitors’’. 


THE SPREADSHEET 

Based closely on Visicalc, the world’s / _ 

best-selling program, • MyMMf\ft^T** 

THE SPREADSHEET turns your 48K / Vrf/jl 

Spectrum into a "super-Calculator" / l 

that helps you solve all kinds of / ln/|jl| / 

number-based problems quickly / / 

and easily. Hundreds of / / 

applications in business, / m f - * / 

engineering and science - and / %£*> ■ / 

just as versatile for home finance / t 

management. Invaluable in / p.. 1 »’.v rT~ 

education too. helping develop / IF 

maths ability and confidence. / . □ 

In power, flexibility and ease / 
of use, THE SPREADSHEET c ^se TTf - 

outperforms all other Spectrum Sr ^n 

spreadsheets - including Sinclair's ^ 

VU-CALC. See for yourself, with the security of 
MiCROL’S 14 day money-back Guarantee. 

To order: (UK Orders Only). 

Simply complete the coupon, 
and FREEPOST with your cheque, 
made payable to MiCROL (UK Mailorder). 

All products normally available from 
stock and despatched by return. 

Credit Card Orders: By phone 9-5.30 
Mon to Fri. stating name and address, 

Card No. and item(s) required. 

MiCROL 

31 Burleigh Street, Cambridge CB1 1BR. 

(0223)312453 




THE WORD PROCESSOR 

The only full feature, professionally- l 
written word processor for 48K I 
Spectrums. Use it to produce memos./ 
letters, reports / 

- THE WORD PROCESSOR has / 
the features you need, including /_ 
flexible editing, justification, 
centering, and automatic "word 
wrap". Simplicity itself to use. T 
THE WORD PROCESSOR uses / 
the same "what you see is what / Di 
you get" principle as word / 
processors costing hundreds of / 
pounds more. 20,000 character / « 

storage capability for real-work 
applications, and it’s easily adapted to 
work with full size printers. Once again, 
MiCROL sets the standard in serious 
Spectrum software. 


Post to:- MiCROL (UK Mail Order) Freepost 

31 Burleigh Street, Cambridge CB1 1BR 

Please send me.copy/copies of USE AND LEARN Vol. 1 

Please send me.copy/copies of THE DATABASE 

Please send me.copy/copies of THE SPREADSHEET 

Please send me.copy copies of THE WORD PROCESSOR 

I enclose cheque/P.O. for.(£9.95 + 50p p +- p - £10.45 total each) 

Or I wish to pay by Access/Barclaycard/Visa 

Card Number. 

Please print name and address 

Name. 

Address. 


I h Credit Card 

■ holder’s signature. I 






















SUBMARINE 
ROCKETLAUNCH 
PLANETS 


INHHNO 

GHOSTS 


OLD BONES 
THIN ICE 


DIRECT MAIL ORDER FORM' 


coupui 


W UNA IN a CASCADES HOUSE 

Mhamlii""""" mnira , 3 bargan'slane 

W*** 2 CA,;£m * LJLJUJa B 2 llandogo 

a GWENT 

MINIMUM SIZE COMPUTER REQUIRED ONLY m S.WALES NP54PA 


N, line 


SPRI/3 


[Dept SU5, 180a Bedford Road, Kempston, Bedford MK42 8BL 


iiisiancu in j cdiy ... 

1. Peel of the touch sensitive key pad. 

2. Plug in Klik-Keyboard (no soldering) and place in position. 

3. Apply self adhesive two-colour legends to the keys. 

This full 40 key keyboard has a positive dick feel as the keys are 
depressed but as it replaces the original touch pad it becomes a 
permanent part of the ZX81 without bulky boxes or trailing wires. 

KEmpsron 

MICRO " ELECTRONICS 


electronic 


teliU ^TANADDOT. 

fflEbocifd 


At last. . . 

Exciting AND Challenging Computer 
Games for Two Players. 


CONFLICT A total war for two players involving both 
the machinery (armies, missiles, warships) and finance 
(stock market, oil, piracy) of conflict. "I en/oyed this 
strategy game (Computer and Video Games). 

GALAXY CONFLICT Raise a fleet of Battle Eoncruisers 
then move from bridge to bridge taking full control and 
responsibility in this battle for the heavens. Born 
galactic rulers will do well. Galaxy battle sets new 
trend ' (Sinclair User) 


Games Include — ZX81 (16K) and Spectrum (48K) 
programs on ONE cassette. Full size professionally 
printed board. Counters and markers. Two pads dis¬ 
posable maps (Conflict only). Comprehensive instruc¬ 
tions/rules. 

♦Professionally packaged in high quality attractive 
box. 

♦Each game only £11.95 inc. Postage or £22 for both 
games. 

♦ Available from W. H. Smith, Buffer. Games Centres 
and many other retail outlets or mail order from: 


mortech 


DON’T MISS THIS INCREDIBLE OFFER ! 

50 GAMES £9»95'lp 

CASSETTE 50 FOR YOUR MICRO 


GALACTIC ATTACK M/ ' /l EATER 

SPACE MISSION ORBIT TER 

LUNAR LANDER MOTORWAY 

PLASMA BOL I EORCE FIELD 

STARTREK NIM 

RADAR LANDING TUNNE L ESCAPE 

ATTACKER BARREL JUMP 

GALACTIC DOGFIGHT CANNONBALl BAT ILL 
/ION ATTACK OVERTAKE 

IVASIVF ACTION SI I TING TARGE T 

0X0 SMASH THE WINDOWS 

BOGGLES SPACE SHIP 

PONTOON JET FLIGHT 

SKI JUMP PHASER y 


BLACK HOLE 
DYNAMIIE # 
DO YOUR SUMS f 
DERBY DASH j 
SPACE SEARCH ■» 
UNIVERSE 
RATS 

TANKER ^fji 

PARACHIJIT WF 

JE TMOBILE W 
HIGH RISE 
THE FORCE 
EXCHANGE 


NOW AVAILABLE FOR 


simczlair— 

SPECTRUM 

ZXB1 

LYNX 

DRAGON 

ATARI 

^oppta 3S2S 


At 

ACORN Jt0 
ATOM f 0 

ORIC-1 10 

SHARP 
NEVY BRAIN 

OOBaib 


TraSraVE SUPPTVCASSFFTFSO 

| SOFTWARE I enclose cheque/1‘0 
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T HE SPACMAN craze has 
spread. Adam Peel of 
Northumberland is the latest vic¬ 
tim of this mental epidemic and has sent 
a version of the game for the ZX-81. 

Steer the gobbler round the maze and 
collect points by consuming dots, aster¬ 
isks and ghosts. You can only get the 
ghosts if your power is above nought, 
otherwise you are vulnerable. Your 
power is decreasing all the time but you 


boost it by 15 when you eat an asterisk 
and your score is also increased by 10. 
One score point is gained for every dot 
demolished. 

Finish the phantom and you pull 20 
points and win a wraith. The game ends 
when a ghost grabs you, when your 
power is nought, or when you wallop a 


score is displayed. 

Gobbler is steered with the cursor 
keys; there are five levels of difficulty 
and as the game progresses it becomes 
more challenging. Zapman was sub¬ 
mitted by Adam Peel of Wylam, North¬ 
umberland. In our listing, ‘IS’ signifies 
inverse space and lower-case letters are 
graphic instructions. (16K ZX-81). 


ZAPMAN 


3 LET Rfi-14 

4 LET S-0 

6 DIM C*<11,13> 

9 LET BB-9 

10 PRINT AT 14,0;"SKILL LEVEL? 
<1/2,3,4 OR 5>" 

11 INPUT SK 

12 PRINT RT 13,0;" 

13 IF SK>5 OR SK<0 THEN GOTO 1 

0 

15 PRINT RT 20,0;"TOUCH ""R"" 
T0 STRRT" 

20 IF INKEY®< >"R" THEN GOTO 20 

25 LET fl-2 

30 CLS 

35 LET B-10 

40 LET C*<1>-"<15*IS>" 

45 LET C*<2)-"IS#.* I 

S" 

30 LET C*(3)-"IS.IS.IS.IS.IS.I 

35*LET C*C4)-"IS.IS.IS.IS.IS.I 
S.IS.IS" 

60 LET C*(3)-"IS.IS.IS.IS.IS.I 
S.IS.IS" 

65 LET C*<6)-"IS.I 

S" 

70 LET C*(7)-"IS. ISISIS. ISIS. I 
S..IS.IS" 

73 LET C*<8)— IS.*IS_ 

IS" 


80 LET C*<9 IS.IS.IS.ISIS... 
ISIS.IS" 

85 LET C*<10>-"IS...IS. 

. IS" 

90 LET C*C11>-"<15*IS>" 

91 FOR N-l TO 11 

93 PRINT RT N,1;C*(N) 

95 NEXT N 

110 FOR N-l TO 500 

111 LET P-P-l 

112 LET 0-0 

113 IF P<0 THEN LET P-0 

114 PRINT RT 12,6;" ";RT 12,0; 

"POWER-";P 

118 PRINT RT B,fl;" " 

120 LET fl-fi+<INKEY*-"8">-(INKEY 
*-"5"> 

130 LET B-B-K INKEY*-"6")-(INKEY 
*-"7"> 

140 LET R*-CHR* PEEK (PEEK 1639 
6+256*PEEK 16397+1+fl+<B*33>> 

150 IF R«-"(ISr THEN GOTO 250 
160 IF fi®-"." THEN GOTO 3000 
163 IF fi*-"*" THEN GOTO 1000 

168 IF fi®-"< iinverse quotation m 
ark >" THEN GOTO 4000 

169 PRINT RT B,fl;»C" 

170 PRINT RT BB,RR;C*(BB,RR> 

171 IF B-BB THEN GOTO 5000 

172 GOTO 6000 

174 IF flfl-fl RND BB-B THEN GOTO 
4000 

180 PRINT RT B,R;"C";RT BB,Rfl;" 


190 LET SK-SK+.5 

200 GOTO 100 

250 PRINT RT B,fl;"C" 

260 PRINT RT 13,0;"YOUP SCORE I 
S ";S 

270 PAUSE 30 
280 GOTO 1 
1000 LET P-15 
1010 LET S-S+10 
1020 GOTO 165 

2000 PRINT RT BB,RR;"(inverse 4u 
station mark)" 

2010 PRINT RT 20,0;"SCORE-";S 
2020 GOTO 1 
3000 LET S-S+l 
3040 GOTO 170 

4000 IF P-0 THEN GOTO 2000 

4005 LET S-S+20 

4010 LET Rfi-14 

4020 LET BB-9 

4040 GOTO 180 

5000 IF INT <RND*SK)«0 THEN GOTO 
180 

5005 IF flfl>R THEN LET RR-RR-1 
5010 IF RR<R THEN LET Afi-fifl+1 
5020 GOTO 174 

6000 IF INT <RND*SK>«0 THEN GOTO 
180 

6010 IF BB>B THEN LET BB-BB-1 
6020 IF BB<B THEN LET BB-BB+1 
6030 GOTO 180 
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D ANIEL FREEMAN of Rams¬ 
gate, Kent, writes: “On page 12 
of the printer manual is a Basic 
routine which puts the contents of the 
screen into the array A$ so that it can be 
recalled instantly by using PRINT AT 
0, 0;A$. Although very useful, even in 
FAST mode it takes a long time to 
RUN. My machine code version does 
the same job instantly.” 

In the listing displayed, the first six 
lines are the loader listing which can be 


put at the beginning of your program 
and will POKE the machine code into 
the REM statement, so that it can be 
recalled by a line like LET A=USR 
16514. 

The rest of the listing is a demonstra¬ 
tion of what the routine can achieve. 
Ten concentric circles are drawn very 
slowly and the display saved after every 
circle. The computer then replays the 
pictures at machine code speed. (16K 
ZX-81). 


SYMMETRY 

S YMMETRY is a useful subroutine 
to create a symmetrical pattern, 
acting as if a mirror has been 
placed vertically and horizontally across 
the screen. The routine should there¬ 
fore be useful in creating mazes or 
crossword puzzles. 

Listing 1 is entered first, then RUN; 
then lines 20 to 80 are deleted and the 
following command is then entered: 
POKE 16510,0. The demonstration 
program should then be entered. It will 
generate random characters at random 
positions in the top left-hand quarter, 
and then echo them at top right, bottom 
right and bottom left. 

Symmetry was submitted by Paul 
Mott of Spalding, Lincolnshire. It ma¬ 
nipulates the 16K display file and is 
therefore unsuitable for the unexpanded 
machine. (16K ZX-81). 
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A NDREW KEY of Witney, Ox¬ 
fordshire, sent Diagono, this in¬ 
triguing man versus computer 
routine for the 16K ZX-81. In concep¬ 
tion, it is a kind of low-tech version of 
our Program of the Month, requiring 
you to move the graphic A across the 
board from 0 to 0, the loser being the 
player who is forced to play into the top 
right-hand corner. You may move up 
(I), across (-), or diagonally (/), illegal 
moves being rejected. 

As listed, the game is not too difficult 
but it will certainly interest readers 
exploring man/machine interaction. 
Lower-case letters in brackets are graph¬ 
ic instructions. 


100 PRINT "DIAGONO" , > "-" 

1000 FOP N-l TO 9 

1010 PRINT TAB 5;"O-O-O-O-O-O-O- 

O-O" 

1020 IF N<9 THEN PRINT TAB 5;"1S 
I/'I/'I/'I-'I/'I/'I/'I" 

1030 NEXT N 

1040 PRINT AT 2,21; "< inverse' 0>" 
1050 LET Y-9 
1060 LET X-l 

2000 PRINT AT Y*2,X#2+3, "<9rjiPhi 
c A>" 

2010 PRINT AT 20/0;"YOUR MOVE?.. 
2020 INPUT M* 

2030 IF MX >"I" AND MX >*V" AND 

MX >"-" THEN GOTO 2020 

2040 IF <<MX"-" OR Ml-V") AND 

X-9> OR <<M*- M r' OR MS-'V'> AND 

Y«1> THEN GOTO 2020 

2050 LET NX-X+<MX"-" OR M*-'V"> 

2060 LET NY»Y-< MX"I" OR M*-‘V"> 

2070 PRINT AT Y*2,X*2+3;"0" 

2080 LET X-NX 
2090 LET Y*NY 

2100 PRINT AT Y#2,X#2+3;"<OraPhi 
c A )" 

2110 IF X-9 AND Y*1 THEN GOTO 5E 

3 

2125 LET CX"0" 

2130 IF X<9 AND Y>1 AND <MX"-" 
OR MX" I" > THEN LET CX'V" 

2140 IF CX'V" THEN GOTO 3000 
2150 IF <Y<-X AND X<9> OR <Y>X A 
ND Y-l> THEN LET CX"-" 

2160 IF <Y>X AND Y>1 ) OR <Y<-X A 
ND X-9> THEN LET CX"I" 

3000 PRINT AT 20/0;"I MOVE ";C»; 

3003 LET QU**RND**PND**RND 
3005 PRINT AT Y*2/X*2+3;"0" 

3010 LET X-X+<CX"-" OR CX'V" > 
3020 LET Y-Y-<CX"I" OR CX'V"> 
3030 PRINT AT Y*2,X*2+3;"(9raPhi 
c A)" 

3040 IF X=9 AND Y-l THEN GOTO 6E 
3 

3050 GOTO 2E3 

5000 PRINT AT 20/0;"I WIN THIS G 
AME 

5010 GOTO 9999 

6000 PRINT AT 20,0;"YOU WIN THIS 
GAME 

9999 STOP 










2 REM © UREL SOBBOGH 

3 DIM ft$(30,8,2©) 

4 LET FCFrl 

10 BORDER 1: PAPER X: INK 6 C 


25 PRINT RT 11,3;"BY UREL SABB 

RGH" 

4-0 INPUT ‘ SECRET CODE TO ENTER 
TO FILES”;B$ 

50 IF B$<>"PMP” THEN BEEP .3,- 
1© GO TO 4-0 
60 CLS 

7© BEEP -1,1© 

8© PRINT RT 0,10,"MENU" 

90 PRINT 

10O PRINT "1 TO OPEN R NEU FILE 

105 PRINT 

110 PRINT '*2 TO LOOK RT R CERTB 

IN FILE - ’ 

115 PRINT 

120 PRINT "3 TO HAUE R LOOK RT 

ERCH FILE(ON LV FILE CODE RND N 

flME)RT THE SAME TIME" 

125 PRINT 

13© PRINT "4. SAVE FILES ON TOPE 


6 SERRCH THROGH RLL 


CHANGE INFORMATION 


135 PRINT 

14.0 PRINT ”5 LPRINT R FILE ON T 
HE PRINTER" 

14-5 PRINT 

150 PRINT ”6 SERRCH THROGH RLL 
F1lc«‘ 

155 PRINT 

150 PRINT "7 CHANGE INFORMATION 
FROM FILE" 

175 PRINT : PRINT ”8 STOP" 

IS© INPUT "CHOICE PLEAS E (1/8) ” 
C 

190 IF C=1 THEN GO TO 300 

200 IF C=2 THEN GO TO 500 

210 IF C=3 THEN GO TO 1000 

220 IF C=4- THEN GO TO 1100 

230 IF C=5 THEN GO TO 1500 

24.0 IF C=6 THEN GO TO 2000 

250 IF C=7 THEN GO TO £500 

260 IF C=8 THEN GO TO 3000 

270 GO TO 130 

300 DRTR FILE CODE ,"NAME 
ADDRESS ","TOUN ","COUNTRY ","PO 
STCODE ■’ , "TELEPHONE " , "OTHER INF 
O " 

310 CLS : RESTORE 300 
315 IF FCF > 30 THEN BEEP .1,4-: P 
PINT -."WO PLACE FOR DRTR": GO 
TO 4.10 

317 LET A$(FCF,llrSTR$ FCF 
320 PRINT RT 0,8; "NEU FILE ENTF. 
Y" 

330 PRINT RERD 6$: PRINT B$,F 
CF 

34.0 FOR X —2 TO 8: RERD B* 

35© INPUT (B$);A$(FCF,X) 

360 IF LEN A$(FCF,X)>20 THEN GO 
TO 35© 

37© PRINT B£:AS(FCF,X) 

38®>BEEP .2,Xi5 
390 PRINT 
40© NEXT X 
4.05 LET FCF =FCF +1 

4-10 PRINT FLRSH 1. "PRESS RNY KE 
Y TO GO TO MENU" 

4.20 IF INKEY$ = "" THEN GO TO 4-20 
4-30 GO TO 60 
500 CLS 


510 PRINT RT 0,7;"FILE DISPLAY" 

: PRINT 

53© PRINT "HIT 1 IF YOU KNOW TH 
E FILE CODE- 

535 PRINT : PRINT "HIT 2 IF YOU 
KNOW NRME (NOT RDVISBLE)” 

536 PRINT : PRINT "HIT 3 IF YOU 
KNOU TEL (NOT ADUISBLE)" 

537 PRINT : PRINT "HIT 4- TO MEN 
U" 

54-0 IF INKEY* = "" THEN GO TO 54-0 
550 IF INKEY$="1" THEN INPUT "F 
ILE CODE ";F: LET U=l. GO TO 70© 
560 IF INKEY $ = "2" THEN INPUT "N 
RME PLERSE ”,F$: LET U=2: GO TO 
575 

570 IF INKEY * ="3” THEN INPUT "T 
EL PLERSE ",F$: LET U=7: GO TO S 
75 

571 IF INKEY* = "4." THEN GO TO 60 

572 GO TO 54-0 

575 FOR X=LEN F$+l TO 20: LET F 
": NEXT X 

580 FOR X=1 TO FCF IF R$(X,U)= 
F* THEN LET F=X: GO TO 700 
590 NEXT X 
595 CLS 

600. PRINT "NRME / TEL NOT IN FI 
LE" 

610 GO TO 520 
700 RESTORE 300: CLS 
710 RERD B$: PRINT B$.F 
720 FOR X=2 TO S 
730 PRINT 

74-0 RERD B$: PRINT INK 6,B$, . B 
EEP . 02,X*2: PRINT INK 7.;R$(F,X) 

: BEEP .02,X *3 
750 NEXT X 
76© PRINT 
770 GO TO 4-1© 

1000 CLS 

1005 PRINT FLRSH 1;”NRME"."FILEC 
ODE- 

101© FOR X = 1 TO FCF 

1020 PRINT R$(X,2) , " ";R$(X,l)t 

TO 3) 

103© NEXT X 
1040 GG TO 410 
1055 BEEP .03.X 
1100 C.L S 

111© PRINT RT ©,S,’SAUE FILE ON 
TAPE" 

1120 PRINT : PRIMT 

113© PRINT "INSERT BLANK TAPE" 
114© PRINT "THEN PRESS RNY KEY " 
1150 IF XNKEY$ = "" THEN GO TO US 

1160 SAVE FILE" LINE 10 
117© BEEP .3,-10 
1180 PRINT 

1190 PRINT REWIND TAPE TO VERIF 


122© VERIFY "FILE" 

1230 GO TO 41© 

1500 CLS : PRINT RT 0,4,"PRINTER 
DISPLAY" 

1520 PRINT : PRINT FLASH 1,"IF Y 
OU RRE NOT SURE OF FILE CODE THE 
N USE OPTION 3 (ON MENU) TO FIND 
OUT” 

1540 PRINT : PRINT ’’PRESS P TO P 
PINT FILE ON PRINTER” 

1550 PRINT "PRESS H TO GO TO MEN 
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A VERY USEFUL routine for the 
16K Spectrum has been sent by 
Wael Sabbagh of Colchester. 
Spectrum File provides a method of 
storing the names and addresses of up to 
30 individuals. Only 20 characters can 
be handled on each line of input but 
that should be no disadvantage, except 
perhaps on the Other Information line. 

Since some of the information in the 
file may be confidential, the files can be 
accessed only when the secret code has 
been entered. STOP and LIST com¬ 
mands would allow the Sinclair user to 
crack that deadlock quickly. The code 
as listed is PMP but can be altered in 
line 50. The routine is served by a very 
useful menu. 

As with all filing routines, the user is 
well-advised to avoid RUN commands. 
If the program is broken into, then GO 
TO 60 will return you safely to the 
menu. 

On a 48K machine, the routine will 
handle details on 150 individuals pro¬ 
vided the number 30 in lines 3, 315, 
1590 and 2520 is altered to 160. If the 
program is to be saved, option 4 of the 
menu should be used. 


1560 IP INKEY$<>"P" AND INKEYJO 
"M" THEN GO TO 1560 

157© IF INKEY$ = -'M" THEN GO TO 4-1 
0 

15S0 INPUT "ENTER FILE CODE ”;F 
1500 IF F <1 OR F>30 THEN GO TO 1 
560 

1600 RESTORE 300: LPRINT "SASBfiG 
H SOFTWARE FILE PROG" 

1610 LPRINT 

1620 FOR X—1 TO © 

1630 READ K$: LPRINT K$;R$tF,X.\ 
164.0 LPRINT 
1650 NEXT X 

1660 LPRINT "__ 

1670 " GCT'TO 60 
2000 CLS 

2010 FOR X=1 TO FCF-1 
2020 RESTORE 300 
2030 FOR K = 1 TO 8 
204.0 READ 

2050 PRINT B$;R$<X,K) 

2060 PRINT : NEXT K 

2100 PRINT FLASH 1;"PRESS ANY KE 
V TO CON (H TO MENU)" 


2110 IF INKEY$ = — THEN GO TO 211 
0 

2120 IF INKEY $ = ”M " THEN GO TO 6® 

2130 CLS : NEXT X 

214.0 GO TO 410 

2500 RESTORE 300 CLS 

2510 INPUT "WHAT FILE WOULD YOU 

LIKE TO CHRNGE INFO FROM ";F 

2520 IF F {1 OR F > 30 THEN GO TO 2 

510 

2530 PRINT FLASH 1;"WHAT WOULD V 
OU LIKE TO CHANGE"' 

2540 PRINT "INPUT 9 TO GO TO HEN 
U" 

2550 FOR C=1 TO 8 
2555 READ G$ 

2560 PRINT FLASH 1, C; FLASH 0, 
A$(F,C) 

2570 NEXT C 

2580 INPUT "CHRNGE (9 TO MENU)"J 
D 

2590 IF D =9 THEN GO TO 60 

2600 INPUT "THE NEW VERSION" ;A$ ! 

F . D) 

2610 CLS RESTORE 300. GO TO 25 
30 

3000 CLS : PRINT RT 10,4; FLRSH 


1.; "FILE CLOSED" 
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Y OUR TASK is to collect as many 
points as possible by moving 
round the playing area colliding 
with the dollar signs appearing at ran¬ 
dom. In the course of play you will find 
yourself increasingly constrained by the 
sudden materialisation of deadly walls— 
constructed of graphic H. They must be 
avoided at peril of your life. 

In addition, gateways on to new lev¬ 
els of play will appear. They are signi¬ 
fied by graphic Ts and will transport 
you into new playing areas. You move 
by means of the cursor keys and are 
given a running score of your achieve- 


ft 


sm 

m 

wmh 


LVAS/ON 


ments. Full instructions are given with 
the listing. 

16K Evasion was submitted by Peter 
Hawkin of Leeds. In our listing, lower¬ 
case lettering indicates graphics instruc¬ 
tions; IS signifies Inverse Space. (16K 
ZX-81). 

303 POKE ( A+Y),0 
310 FOP F-l TO 25 
313 POKE X+A,61 


MOVE YOUR MAN( X > AROUND 
THE SCREEN USING THE 
CURSOR KEYS(3,6,7,8)AND 
EAT THE POINT-PODS(*>. 


+1><>128 THEN LET X-X+l 315 POKE X+A, 6 

*65 IF X-Y THEN GOTO 125 317 POKE A+X, 134 

170 IF PEEK (X+A XI36 THEN GOTO 320 NEXT F 
360 325 CLS 

175 IF PEEK (X+A >-13 THEN LET S 338 PRINT 


DO NOT CRASH INTO THE 
DEADLY WALLS(Graphic H >.EAT 

THE" 

20 PRINT 

" ESCAPE PILLSCGraphic T> 
TO GET ONTO A HARDER LEV 

EL. 

INPUT DIFFICULTY 
LEVEL < 1-4 V 

23 LET AS"INKEY* 

30 IF A*-"" THEN GOTO 25 
35 IF R*< >"1" AND AS<>"2" AND 
A*< >"3" AND R*< >"4" THEN GOTO 25 
40 LET L-VAL A*.'8 
43 LET S-0 
50 CLS 

60 LET A-l+PEEK 16396+PEEK 163 
97*256 

63 PRINT "<2*IS>SURR0UND-81(7* 
IS)SC0RE-(6,IS)" 

70 PRINT "< 32*IS >" 

80 FOR F-l TO 19 


-S+10O 

180 IF PEEK < X+A >=6 THEN GOTO 3 
00 

183 POKE (X+A),61 

190 POKE (Y+A >,0 

200 LET Y-X 

210 IF (RND<L> AND (PEEK (A+X+2 
>0128) AND (PEEK ( A+X+l )<>128> 
THEN POKE (A+X+INT (RND*2)+1>,13 
6 

220 IF (RND<L) AND (PEEK (A+X-6 
6)0128) AND (PEEK (A+X-33X> 128 
> THEN POKE (A+X-((INT (RND*2)+1 
>*33>>,136 

230 IF (RND<L) AND (PEEK (A+X+6 
6)0128) AND (PEEK (A+X+33XM28 
) THEN POKE (A+X+((INT (RND*2)+1 
>*33)), 136 

240 IF (RND<L > AND (PEEK (A+X-2 
>0128) AND (PEEK (A+X-1X>128) 
THEN POKE (A+X+INT (RND*2 )-2 >,13 
6 


WELL DONE. YOU HAVE COMPLETED 
ROUND ONE AND HAVE BEEN AWARDED 
300 BONUS POINTS FOR DOING SO. 
PRESS ANY KEY TO GET ONTO A 
HARDER LEVEL." 

335 LET L-L+.125 

340 IF INKEY*-"" THEN GOTO 340 

350 GOTO 50 

360 POKE A+Y,0 

363 FOR F-l TO 25 

370 POKE X+A,61 

375 POKE A+X,136 

380 POKE A+X,0 

390 NEXT F 

400 CLS 

410 PRINT "YOU CRASHED INTO A U 
ALL. YOUR FINAL SCORE WAS "jSj 

420 IF S>H THEN LET H-S 
425 PRINT 

430 PRINT "THE HIGH SCORE IS "i 


90 PRINT "(IS)" .TAB 31j"<ISV 
100 NEXT F 
110 PRINT "<32*IS>" 

120 LET X-343 
123 LET Y-336 

130 IF INKEY*-"5" AND PEEK (A+X 
-1)0128 THEN LET X-X-l 

140 IF INKEY$“"6" AND PEEK (A+X 
+33)0128 THEN LET X-X+33 


230 IF RND<.1 THEN PRINT AT INT 
(RND*19 )+2,INT (RND*30>+l*"*" 
260 IF RND<.03 THEN PRINT AT IN 
T (RND*19)+2,INT (RND*30>+l;"( Gr 
aPhic TV 
270 LET S-S+10 
280 PRINT AT 0,26 jS 
290 GOTO 125 
300 LET S-S+300 


433 PRINT 

440 PRINT "PRESS ANY KEY FOR AN 
OTHER GAME." 

450 IF INKEY*-"" THEN GOTO 450 
460 CLS 
470 GOTO 1C 
9000 SAVE "SURR" 

9010 RUN 
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SS RANDOMIZE 


DRAW 


IP® FOR D=1 TO SI: LET b=0*IINK 
LY|a"7“)«S-IINKEY*«"e")*S DRRU 

Ink fe;s,b. print rt 21,®," 

PEEP .01 ,n -10: IF PEEK 236 
76>=b<n) OR PEEK 23676<=a(n) THE 
N GO TCI 14.0 

130 LET S=S+1. PRINT RT 0,6,5 
NEXT n 

133 CLS : GO TO 3® 

14® LET r=o+LEN STRS *: PRINT R 
T 19,0, FLASH 1, INK 1, PAPER 6, 

• YOU CRASHED!';AT 0,0; ODER 1, • 

•• f to r> 

14S FOR 0=30 TO 4 STEP -.5. BEE 
P 609,n: NEXT n 
IE® INPUT "another go ysn? ";as 
IF 4 *»"V THEN RUN 


ILOT is 


the simplest possible game can still hook the average arcade 
version of a popular arcade rou- addict. 

tine. In the arcade version you You have four levels of difficulty 
are required to steer through a scrolled- from which to choose; manoeuvre up 
down tunnel, nailing assorted aliens with 7 and down with 6. The game was 
along the way. There are no aliens to submitted by M Simper of Histon, 
zap in this listing and your ship is Cambridgeshire. (16K Spectrum), 
signified only by its vapour trail but the 




P LAGUE is on the difficult side of 
impossible. You and your eight 
brave comrades are attempting to 
take supplies to a medical team which is 
battling to combat an outbreak of mos¬ 
quito-carried plague. Unfortunately, a 
cloud of the infested insects is hovering 
between you and your goal. 

Use the cursor keys to manoeuvre 
your men between the deadly flies and 
if you manage to reach the medical team 
and return—unlikely—you will be 
awarded 10 points. 

As a measure of its difficulty, the 
author, Denis McCarthy of Todmor- 
den, Lancashire, has a personal best 
score of 30. In our listing, lower-case 
letters are graphics instructions. (IK 
ZX-81). 



1 LET K-0 

2 LET S-K 

3 FOR N-K TO 9 

4 LET T-K 

5 LET J-CODE "<" 

6 LET A-VAL "9" 

7 LET D-VAL "4" 

8 CLS 

9 PRINT AT 4, K;"<inverse SPflC 
E;inverse M>","<inverse S >invers 
e SPACE V/"< two inverse SPACES)" 
, "(two iinverse SPACEs>"; AT D,Jj” 

10 PRINT AT RND*A,5j"+ + 

j AT RND*A,5;" + + " i AT RND*A, 

5j" + + "jRT RND*A,5 j" + + 

11 LET D-D+CINKEY*-"6" AND D<A 

)-< INKEY*-"7" AND DMO 

12 LET J-J+CINKEY*-"8" AND J< 1 
6>-<INKEY*-"3" AND J>K> 

13 PRINT AT DsJ j 

14 LET Q»PEEK <PEEK 16398+256* 
PEEK 16399> 

15 PRINT "< iinverse 0)" 

16 LET T-T+CQ-CODE "<inverse M 
>"> 

17 IF Q-CODE "(inverse S>" AND 
T>-1 THEN GOTO 21 

18 IF QOCODE " + " THEN GOTO A 

19 NEXT N 

20 PRINT Sj2 

21 LET S-S+10 

22 GOTO 4 
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P IC-MAN is a game for the unex- an inverse zero. Instead of ghosts there you are trapped in the money cage, 
panded ZX-81 requiring speed are inverse dollar signs which appear at Your score is displayed at the end 

and luck. The playing area com- random, surrounding you and your of the game and a new playing area is 

prises zeros and there are five inverse food. Therefore you must act with cun- made every 100 points. Pic-man was 

zeros. Move your man with keys 5 to 8 ning and despatch to consume as many composed by Michael Porter of 

and score one for every zero and 10 for of the tasty morsels as you can before Harrogate. 


1 LET S-SIN PI 

10 FOR R-SGN PI TO CODE "<9r*P 
hie S)" 

20 FOR B-SGN PI TO CODE "(QraP 
hie S)" 

30 PRINT RT R, Bj"0" 

40 NEXT B 

50 NEXT R 

60 FOR R-SGN PI TO CODE "<9rj.P 
hie 5 )" 

70 PRINT RT INT <RND#CODE "<9r 
*Phic S)")+SGN PI, INT < RND#CODE 
"< GraPhic S)")+SGN PIj"0" 

00 NEXT R 

90 LET fl-CODE "<9rj.Phic 5)" 

100 LET B-R 
110 PRINT RT B, Rj 
120 LET P-PEEK <PEEK VRL "16398 
"+VRL "256"*PEEK VRL "16399") 

130 IF P-CODE "0" THEN LET S-S+ 
SGN PI 

135 IF P-CODE "(inverse $)" THE 
N GOTO VRL "2E3" 

140 IF P-CODE "(inverse 0>" THE 


N GOTO VRL "1E3" 

150 PRINT "<" 

155 FOR Z-l TO 10 

156 NEXT Z 

160 PRINT RT B, Rj 
178 IF RND>VRL ".4" THEN PRINT 
RT INT (RND*CODE "(9raPhic S)">+ 
SGN PI, INT ( RNDttCODE "(graphic S 
)">+SGN PI; inverse *>" 

180 LET fl-R-K INKEY*-"8" RND R<C 
ODE "<9raPhie S>">-<INKEY*-"5" R 
ND R>SGN PI) 

190 LET B-B+CINKEV*-"6" RND B<C 
ODE "< 9r.aPhic S )" )-< INKEY*-"7" R 
ND B>SGN PI) 

205 IF S/VRL " 100"-INT < S/'VRL " 
100") THEN GOTO CODE "<9raPhic 2 

)" 

210 GOTO VRL "110" 

1000 LET S-S+CODE "<9raPhic S)" 
1020 RETURN 

1990 LET S-S+CODE "<9rAPhic 5)" 
2000 PRINT RT 0,0j S 
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20 LET T-120 
50 PRINT RT 15.21; "R" 

60 PRINT TRB 21; "(inverse sPac 
e )" 

70 PRINT TRB 21;"(inverse *P*c 

e >" 

80 PRINT TRB 20;"(Graphic T.sP 
ace.Graphic Y>" 

65 PRINT "(inverse sPace.twent 
a two Graphic Gs>" 

100 FOR N ra 0 TO 19 

105 PRINT RT 19.N;"(inverse sPa 
ce > " 

110 LET R=»INT (RND#10> 

120 LET B**INT <RND*100> 

130 PRINT RT 21.6;R+B;" - ";B;" 

140 PRINT RT 19.27;T;" " 

150 LET R$”INKEY$ 

160 PRINT ...R$;"(inverse sPace 
>" RND R*™"" 

170 IF R^STR* fl THEN NEXT N 
180 LET T*T-1 

190 IF N< >20 THEN GOTO 140+(T<0 
>#140 

200 FOR N*1 TO 50 
210 PRINT RT 18.21;" " 

220 PRINT RT 18.21;"V" 

230 NEXT N 
240 POKE 16418.5 
250 FOR N*»l TO 19 
260 SCROLL 
270 NEXT N 


SINCLAIR PROGRAMS May 1983 


T AKE OFF for the IK ZX-81, 
which was sent by C Robinson of 
Slough, Berkshire challenges 
your mathematical speed and accuracy. 
A rocket is on the launch pad and time 
is ticking away. Fuel must be delivered 
to the rocket along the underground 
pipeline by answering 20 questions cor¬ 
rectly before the time reaches zero. 

If your skill at subtraction is good 
enough for the test the rocket will blast 
into outer space; if not, it will be left 
stranded. Lower-case letters in brackets 
indicate graphics instructions. 






SPICTRUM MOKS£ 


S PECTRUM MORSE, an excel¬ 
lent Morse code training program, 
must be one of the most effective 
educational listings we have published. 
It is difficult to think of any other 
method of home tuition which could 
work so well. The author of the routine, 
T Garner of Manchester, says that 
when Morse code is being studied “the 
individual letters should be sent from 


the start at the speed the student wishes 
to attain. The space between the letters 
can be long at first, then reduced gradu¬ 
ally, keeping the letters at the same 
speed and thus reducing the thinking 
time. 

“The letters and numbers in the 
program are sent at approximately 15 
words per minute. Selecting a low speed 


gives longer thinking time. Proficiency 
at speed 10 should ensure that the 
student will have no difficulty with the 
receiving part of the Morse section in 
the radio amateurs’ examinations.” 

A full list of instructions is given at 
the start of the program and the morse 
from the Spectrum speaker sounds ex¬ 
traordinarily life-like. (16K Spectrum). 
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C LIMBER is a reaction game 
guaranteed to test the co-ordina¬ 
tion of the most lightning-fin¬ 
gered operator. You must make your 
way through a series of parallel walls in 
which a magical gateway appears at 
random positions. You are represented 
on-screen by A and manoeuvre yourself 
with keys 1 and 0. 

If you are quick enough to position 
yourself under an opening you can pro¬ 
ceed to the next level by pressing E. 
When you reach screen-top your time 
will be displayed. 

Climber was written by David 
Cockburn of Manchester. (IK ZX-81). 




C ELIA SIMS of Gt Yarmouth, 
Norfolk has managed to squeeze 
a Link 4 game on to an unex¬ 
panded ZX-81. The display is surpris¬ 
ingly complete, even to the extent that 
the counters can be seen falling down- 
screen into position on the frame. 

Link 4 is a version of the parlour 
game for two people in which you are 
required to place four counters in a row 
before your opponent. In this listing, 
the frame for the counters is represent¬ 
ed by the numbers 1 to 8 and you are 
requested to enter the number appropri¬ 
ate to the column you wish to occupy. 

The four counters can align horizon¬ 
tally, vertically or diagonally. Black al¬ 
ways leads, so players should take turns 
in using it. 

The listing does not check for win¬ 
ning lines so it is up to the player to 
shout “Yippee” as appropriate. (IK 
ZX-81). 


10 CLS 

20 PRINT "CONNECT 4" 

30 PRINT AT 21,1j"12345678" 

40 FOR X-6 TO 1 STEP -1 
50 PRINT RT X+14,0;?-X 
60 NEXT X 
70 LET G-0 

80 LET C**-"66666666" 

100 IF G< >0 THEN GOTO 200 
110 LET G*="<invars* SPACE>" 
120 GOTO 300 

200 LET G*""<SraPhic H>" 

300 LET G»NOT G 

310 PRINT AT 2,0;G*;" COLUMN?" 


420 IF C*<C>^"0" THEN GOTO 400 
430 PRINT AT 2,0;" 

500 FOR X-5 TO VAL (C*(C>>+13 S 
TEP 1 

510 PRINT AT X,C)G* 

520 PRINT AT X,C;" " 

530 NEXT X 

540 PRINT AT X,C;G* 

600 LET C*CC>STR* < VAL <C*<C>> 
-1 ) 

700 GOTO 100 
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1 REM PIPELINE 

2 REM 

3 REM ©PR LUCKETT(19B3) 

4- REM 

5 REM 

10 PRINT RT 0,12;"PIPELINE" 

20 PRINT RT 2,0,"RIM »S BU5t e 

ach Xj-u to finish the pipeline 
by playing into theupper right f 
ield;or to force our opponent 

off the board" 

30 PRINT RT 7,0;“RULES a)pi aye 
rs alternate aovea b> each ®ove 
must extend the pipeline int 
o an adjacent field” 

4-0 PRINT RT 12,0; “I WILL LET Y 
OU CHOOSE ""PLAY ORDER””(1=Y 

OU FIRST,2=KE FIRST!” 

50 PRINT RT 14.0; "YOU CAN ALSO 
PICK ‘PLAY LEl'EL"" (1=BEGINNE 
R,2=ADURNCED) BUT BE CAREFUL UI 
TH LEUEL 2 !.» I'M VERY GOOD!!!*! 

S0 PRINT RT 21,0,’PRESS ANY KE 
Y TO CONTINUE” 

333 IF INKEY $="” THEN GO TO 999 
1000 CLS : PAUSE 50 

1301 DIM d(4,3); DIM e(13,13) 

1302 RESTORE 3000: FOR i =1 TO 4: 
FOR j=l TO 3 

1003 READ d(i, J): NEXT j : NEXT i 
1005 BORDER 5 

1010 PRINT INK 3; INVERSE 1;"PIP 
ELINE" INPUT "PLAY ORDERtlOf2) 

”, po; "PLAY LEUEL(10f2) ”;pl; 

1011 PRINT INK 5; INUERSE 1,RT 0 
,24.; "ADVANCED” 

1012 IF pl=l THEN PRINT INK 3; I 
NUERSE 1;RT 0,24;"BEGINNER- 

1013 PRINT INK 4-; RT 16,26; INUER 
SE 1;"PLEASE" 

1014- PRINT INK 4-; RT 19,26; INUER 
SE 1,"WRIT 

1015 PRINT INK 4-; AT 20,26, INUER 
SE l;"FOR 

1016 PRINT INK 4; AT 21,26; INVER 
SE l;"PROMPT" 

1020 PLOT 4-9,0: DRAW 157,0: DRAW 
0.157: DRRU -157.0: DRAW 0,-157 
1030 LET nn=12+Cplopo) . LET lw = 
it(PlOPO) : LET bd=12t(pl=po) 
1040 LET JJ=1: LET ii=1 
1050 GO SUB 2000 

1060 LET n=(nn-l): LET hSsnnf(bd 
-1J 

1061 PLOT 50-fhS ,hS+l; DRAW 0,n: 

DRRU n , <2 DRRU DRRU - r >» 0 

1070 PRINT INK l; INVERSE 1;AT 2 
,0;"PLAY 1” 

1060 LET J j =bd—1: LET ii=-2 : GO 


T HIS ISSUE features the start of a 
new feature in Sinclair Programs. 
To celebrate our new monthly 
appearance we have decided to inaugu¬ 
rate a Program of the Month. 

The first worthy winner of the covet¬ 
ed award is P R Luckett of Hammer¬ 
smith, London, with his enthralling, 
original and altogether outstanding 
brain game. Pipeline, for the 48K 
Spectrum. 

Luckett works at the European Pat¬ 
ent Office in Munich, examining appli¬ 
cations on digital signalling techniques; 
his mathematical bias is apparent in the 


five strategies he has managed to build 
into the computer play. 

He has owned a Spectrum only since 
Christmas, after eight computerless 
years, and feels this listing could doubt¬ 
less be made more elegant, particularly 
in the resolution of the data lines into 
their mathematical bases. 

The ability to follow winning math¬ 
ematical strategies, Luckett feels, gives 
the computer an unassailable advantage 
in this type of game. 

Pipeline casts you as an unprincipled 
pipe-laying engineer. You are shown 
the playing area and the choice of three 


30 
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1100 LET jj=7: GO SUB 4-000 

1110 PRINT INK 1; INVERSE 1;RT 1 

5,0;"PLRY 3" 

112© LET JJ=2: GO SUB 6000 
1130 LET ii=l: LET JJ=1 
114-0 DIM b (15,15) 

1150 FOR i =1 TO bd+2: FOR J=1 TO 
bd +2 

116© LET bii,jj=-Ci=1)-tJ=l)-Ci= 

fcd+23 -t j=bd+23 

1170 NEXT j. NEXT i 

1175 input "SOL07(y=yes,n=no)";s 

$ 

1160 LET b(S, 23=1: LET »ove=l 

1190 LET nove=move+1 

1500 IF (po=l AND (move/2=INT (m 

ove/2))) OR (po=2 RND (move72<>I 

NT (#owe/2))) THEN GO TO 3000 

1520 GO TO 5000 

1999 STOP 

2010 LET iii=nn*(ii-13+50: LET j 
jj=nn*(jj-l)+l 
2020 FOR i =1 TO 4- 

203© PLOT i i i +i -1, j J J : DRRU 0,4- 
204.0 PLOT iii +i -1/j j j + ltf+4: DRRU 

2050 PLOT iii+ lw +3 + i, J J j : DRRU 0 
2060^PLOT i i i + l W+3+i , j J j + 1W+4 : D 

2070 NEXT i 
3080 RETURN 

2®®® £S=”y” THEN GO TO 3091 

o©10 IF pl=2 THEN GO TO 6000 
3020 IF move 02 THEN GO TO 306© 
3030 LET ii=l+(RND >0.5) : LET J J = 

o — i i 

3050 LET eg =3-2*(j J =2) 

3060 LET Play=((ii=l)*(eg=4)+(ii 
= bd 3 *(eg =3)+ (jj =13*(eg =2)+(J j =bd 
)*(69=1))* (2 +(RND<0.5)J+ ((ii=1)* 
(eg=l) + (jj = i) *(eg =3)+(ii=bd) * (eg 
-2) + (jj=bd) * (eg =4-3 3 * (1 + (RND <0.53 
) + ( C i i =13 * (eg =2) + (Jj=13 * (eg =4-3 + ( 
ii=bd3*(eg=13 +(JJ=bd3 *(eg =33 3 * Cl 
+2*(RND<0.53) 

3070 IF (ii(>1) RND (ii<>bd3 RND 
jjoi RND jjobd THEN LET piay = 
INT (1+RND*2.9993 
30S0 GO SUB 7000 

3090 GO TO 1190 

3091 INPUT "MY PLRY(l,2or33pla 

3092 IF »OVe<>2 THEN GO TO 3080 

3093 LET ii=1+(RND>0.S3: LET JJ= 
3 — i i : LET eg=3-2*(J J =2) 

3094 GO TO 3080 

4-010 LET iiimnf (ii-1) +50: LET J 
j j=nni i JJ-13 +1 
4020 FOR i =1 TO 4- 

4-030 PLOT iii + i —1 , j J J : DRRU nn-i 
,nn-i 

4-04-0 PLOT i i i +i -1, J J j +nn : DRRU 1 


4050 PLOT i ii +l«+3+i , J J j : DRRU 4- 
-i j 4 — i 

4-060 PLOT iii +UH-3*i , jj j+nn: DRfl 
U - (nn-5+i 3 , - (nn-5+i 3 
4070 NEXT i 
4080 RETURN 

5001 IF move<>2 THEN GO TO 5015 

5002 INPUT "play right(f) or up( 
u) "; r$, 

5003 LET ii=2 

5004- IF r $ = "U" THEN LET i i =1 

5005 LET j J =3 —ii 

5010 LET eg =3-2 *(JJ =2 3 

5015 INPUT "YOUR PLAY (l,2£)f 33 ”,p 


5999 GO TO 1190 

6010 LET iii=nn * (ii —13 +50: LET J 
JJ =nn* + l 

6020 FOR i =1 TO 4- 

6030 PLOT iii +i-1,JJJ: DRRU 1-i, 
i -1 

604-0 PLOT iii ti -l f jj j+nn: DRRU ( 
on -i ) . - (nn -i 3 

6050 PLOT iii+lW+3+i,jjj: DRRU 5 
-nn-i , - (5-nn-i ) 

6060 PLOT iii+ lw +3 + i,JJJ +nn; DRR 
U 4--i , i -4 
6070 NEXT i 
6080 RETURN 

7010 LET b(Jj+1,ii +13 =p lay 
7020 GO SUB 2000*play 
7030 LET eg =d (eg,p lay) 

704-0 LET J J = J J + leg =13 - i e g =2) 

7050 LET ii=ii + (eg=33 — ( e g =4) 

.'060 IF b ( J J+1 , i i +13 =0 THEN GO T 
O 7150 

7070 IF b(jJ+l,ii+13<0 THEN GO T 
O 7100 

7080 LET play=b( J j+1,ii+13 
7090 GO TO 7030 

7100 IF (((aove/2) =INT (BOve 723 3 
RND (po =13 3 DR (BOVe./2<>INT iBO 
ve/2) RND po =23 THEN GO TO 7130 
7110 PRINT INK 2;AT 1,9; FLASH 1 
;"BAD LUCK-YOU LOST" 

7120 GO TO 7500 

7130 PRINT INK 1;AT 1,9; FLASH 1 
;"WELL DONE-YOU WIN" 

714-0 GO TO 7500 

7150 IF jjobd OR iiobd THEN RE 
TURN 

7160 IF (((aove/2)=INT (aove/2)3 
RND (p0=13 3 OR (aove/2oINT (BO 
ve .''23 RND pO =23 THEN GO TO 7130 
7170 GO TO 7110 

7500 INPUT "LIKE RNOTHER GO?(yes 
=y,no=n) r* 

7505 IF r*="n" THEN STOP 

7510 CLS 

7520 GO TO 1010 

8O00 IF aove =2 THEN GO TO 8100 


types of tiles which you can use to 
continue the pipe. Each tile is traversed 
by two white lines and a sharp eye must 
be kept to trace the twisting path of the 
pipe as it coils and flexes across the 
board. 

The winner is the one who plays into 
the top right-hand corner of the screen, 


or who forces an opponent to play into 
the side of the board. Play against 
another Sinclair programmer or against 
the Grand Master Spectrum, which we 
have not yet beaten at advanced level. 

An astounding listing. Congratula¬ 
tions to our cunning author and good 
luck to our fortunate readers—you will 
love this one. (48K Spectrum). 
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3010 IF wove 03 AND wove <>4 THEN 
GO TO 3070 

9301 

1 

DATA 

1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 

3020 LET rest=9300+100*(b(3,3)=2 
)+200*Ib13,3)=3) 

9302 

DATA 

2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 

3030 IF move=3 THEN LET rest=910 
0+100*lb(3,2)=0) 

9303 

1 

DATA 

1 , 2 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 

3O4-0 

RESTORE rest 

9304 

DATA 

2 , 1 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 

305O 

FOR i=1 TO bd: FOR J=1 TO b 

2 



d 


9305 

DATA 

1 , 2 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 

©060 

RERD e Ci ,J) : NEXT j; NEXT i 

1 



3070 

LET play=l 

9306 

DATA 

2 , 1 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 

3080 

IF d(eq,play)=cfjj,ii) then 

2 



GO TO 6110 

9307 

DATA 

1 , 2 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 

3090 

LET play=play+l: GO TO 80S© 

1 



3160 

LET i i =1: LET J .i =2: LET eg = 

930© 

DATA 

2 , 1 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 

1: LET Play=2 

2 



•3110 

8120 

GO SUB 7000 

GO TO 119© 

9309 

1 

DATA 

1 , 2 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 

9060 

DflTfi 1,3,4,2,4,3,3,1,2,4,2, 

9310 

DATA 

2 , 1 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 

9100 
1 , 1 

DfiTfl 1,1,1,1,1,1,1,1,1,1,1, 

9311 

1 

DATA 

1 , 2 ,3.4,3.4,3,4,3,4,3, 

9101 

2,2 

DftTfl 2,2,2,2,2,2,2,2,2,2,2, 

3312 

3 

DRTA 

2,3,4,3,4,3,4,3,4,3,4, 

9102 
1 , 1 

DfiTR 1,1,1,1,1,1,1,1,1,1,1, 

9401 

i 

DflTfi 

1 , 1 ,3,4,3,4,3,4,3,4,3, 

9103 

DftTfl 2,2,2,2,2,2,2,2,2,2,2, 

3402 

DATA 

2,1,4,3,4,3,4,3,4,3,4, 

9104- 

1,1 

DftTfl i,.i..ia<iaaaaaa.. 

5403 

2 

DATA 

1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 

9105 

2,2 

DftTfl 2,2,2,2,2,2,2,2,2,2,2, 

9404 

1 

DATA 

2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 

9106 

1 , 1 

DftTfl 1,1,1,1,1,1,1,1,1,1,1, 

3405 

2 

DATA 

1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 

9107 

DftTfl 2,2,2,2,2,2,2,2,2,2,2, 

3406 

DATA 

2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 

9108 

DftTfl 1,1,1,1,1,1,1,1,1,1,1, 

9407 

DATA 

1 - 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 

9109 

2,2 

DftTfl 2,2,2,2,2.2,2,2,2,2,2, 

0403 

1 

DOTH 


9110 

1 , 1 

DATA 1,1,1,1,1,1,1,1,1,1,1, 

9409 

2 

DATA 

1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 

9111 

2)2 

DftTfl 2,2,2,2,2,2,2,2,2,2,2, 

9410 

1 

DATA 

2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 

9112 
4-, 3 

DATA 3,4,3,4,3,4,3,4,3,4,3, 

9411 

DATA 

1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 

9201 
4, 1 

DATA 3,4,3,4,3,4,3,4,3,4,3, 

941J? 

DATA 

2 , 2 , 2 , 2 , 2 , 2 . 2 , 2 , 2 , 2 , 2 , 

9202 
i , 2 

DATA 3,4,3,4,3,4,3,4,3,4,3, 

9501 

1 

DATA 

1,3,4,1,1,1,1,1,1,1,1, 

3203 
4« 1 

DATA 3,4,3,4,3,4,3,4,3,4,3, 

3502 

2 

DATA 

2,1,4,2,2,2,2,2,2,2,2, 

3204 
4, 2 

DATA 3,4,3,4,3,4,3,4,3,4,3, 

9503 

DATA 

1 , 2 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 

9205 
4,1 

DATA 3,4,3,4,3,4,3,4,3,4,3, 

9504 

DATA 

2 , 1 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 

¥%* 

DATA. 3,4,3,4,3,4, 3,4,3,4,3, 

9505 

DATA 

1 , 2 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 

9207 

DATA 3,4,3,4,3,4,3,4,3,4,3, 

9506 

DATA 

2 , 1 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 

9208 

4,2 

DATA 3,4,3,4,3,4,3,4,3,4,3, 

95B7 

1 

DATA 

1 > 2 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 

9209 

4,1 

DATA 3,4,3,4,3,4,3,4,3,4,3, 

950© 

2 

DATA 

2 , 1 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 

9210 

DATA 3,4,3,4.3.4,3,4,3.4,3, 

9509 

DATA 

1 , 2 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 

3211 

4,1 

DATA 3,4,3,4,3,4,3,4,3,4,3, 

9510 

o 

DATA 

2 , 1 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 2 , 

9212 

4,2 

DATA 3,4,3,4,3,4,3,4,3,4,3, 

9511 

4 

DATA 

1 , 2 ,3,4,3,4,3,4,3,4,3, 

9213 

4,1 

DftTfl 3,4,3,4,3,4,3,4,3,4,3, 

9512 

3 

DATA 

2,3,4,3,4,3,4,3,4,3,4, 







Y OU ARE defending London 
against the droning hordes of 
Dorniers during a night raid in 
World War Two. The bombers swoop 


and dive to evade you and you must 
adjust the elevation of your anti-aircraft 
gun to outwit their evasive manoeuvr- 
ings. Since your gun is truck-mounted, 
you are able to follow the bombers by 
pressing keys 5 and 8 to travel left and 
right. When the reading on your altim¬ 
eter corresponds to the height of the 


aircraft and your gun is aligned correct¬ 
ly, press F to let loose the AA shell. The 
elevation of the gun barrel is controlled 
by 7 for up and 6 for down. 

Gun-Sight was submitted by Tom 
Meagher of Cork, Ireland. Lower-case 
letters indicate graphics instructions. 
(16K ZX-81). 


GUNSffiHT 


1 REM "GUN-SIGHT" 

10 LET H~15 
20 LET B“17 
30 LET K-5 
40 LET D-5 
50 FOR L-J” 1 TO 1? 

60 PRINT RT W . 0" 

70 NEXT U 

R0 PRINT RT 5.• 0; " ( Rr&Phie 4}".: 
RT 10,0; "< graphic 4 V; RT 15,0;"' 
RraPhic 4 >" 

90 FOR M~1 TO 20 
100 PR TNT RT 20, O; "< 9r aPh i c 0 >" 
105 FOP 1-30 TO 0 STEP -1. 

110 IF INKEV$-"3" THEN LET DK>+ 

2 

120 IF INKEY*»"5" THEN LET D-D- 

2 

121 GOSUB 450 

122 PRINT RT 21■5;"HEIGHT-":H;" 
00 FEET " 

130 PR I NT RT 20, D; "< two 9raP h i c 
Ds;inverse I;two RraPhic Ds>" 
140 PRINT RT K,I;"<9r*Phic F> " 
145 GOSUB 300 
150 GOSUB 450 

155 PRINT RT 21,5;"HEIGHT-":H;" 
00 FEET " 

156 PRINT RT K+1 ,I:" " ;RT K-l,I 


160 NEXT I 

300 LET R-INT <RND:t3>+l 
310 IF R-2 THEN GOSUB 4O0 
320 IF R-l THEN GOSUB 430 
330 RETURN 
400 LET K~K+1 
410 RETURN 
430 LET K-K-l 
440 RETURN 


450 

0 

460 

0 

470 

IF 

INKEYt^"6" 

THEN 

GOSUB 

50 

IF 

INKEY*-"7" 

THEN 

GOSUB 

54 

IF 

INKEY*-"F" 

THEN 

GOSUB 

60 


480 RETURN 
500 LET H-H-l 
510 LET 0^-0+1 
520 RETURN 
540 LET H-H+l 
550 LET 0-0-1 
560 RETURN 

600 IF 0-K RND I+2~0 THEN GOTO 
650 

610 PRINT RT 0.0+2:"<inv’ree v> 
620 RETURN 

650 PRINT RT 0,I;"<inverse HI T > 
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P LACE YOUR BETS. This is a 
foolish but funny listing for the 
unexpanded ZX-81 which in¬ 
vites you to place bets on a field of 
knock-kneed athletes competing in the 
next Olympics. The runners are repre¬ 


sented by an O for their bodies and an 
alternate I and X for their lop-sided 
legs. 

Wagers are made by entering your 
name and the number of the chosen 
competitor. There are two input state¬ 


ments, executed one after another, so 
that up to eight punters could gamble 
by using only their initials. 

Olympics was written by T Vaskevi- 
cus of St Ives, Cornwall. (IK ZX-81). 
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T HIS UNUSUAL routine enables 
you to play that old street-corner 
routine with the pea and the 
three cups. This time, however, you are 
playing against the computer and no 
cheating is allowed. 

You have a stake of £100 and are told 


under which cup the pea is hidden. 
Three dots are shown in the centre of 
the screen and after you have pressed a 
key they are moved around according to 
the difficulty level you have selected. 

The difficulty level increases auto¬ 
matically with each gamble. When the 


cups have finished moving, enter the 
position of the pea—1 to 3—and the 
amount you wish to gamble. 

Dodger was written by Tim Grubb 
of Newton Linford, Leicester. (16K 
ZX-81). 


L LET 1-1 

J LET DO-INT < RND*3 >+l 
5 PRINT AT 20,4;"THE DODGE IS 
' ;D0 

) LET MO-100 

) PRINT AT 10,10;"LEVEL?" 

5 INPUT L 
! CLS 

> PRINT RT 0,9;"*#D0DGE#*" 
f LET K-0 

) DIM fl( 3 ) 

> PRINT RT 20,4;"PRESS RNY KE 
) START" 

’ IF INKEY*-"" THEN GOTO 115 
I FOR J-l TO 3 
l LET fi(J>-25+J*2 
I PLOT RCJ>,21 
l NEXT J 
i LET J-3 
' FOR H-l TO L 
i PLOT fl<J),21 
1 PLOT R< I ), 21 
i LET J-INT <RND*3>+1 
i LET I-INT <RND*3>+1 
IF I-J THEN GOTO 210 


214 IF JODO THEN GOTO 217 

215 IF J-DO THEN LET DO-I 

216 GOTO 220 

217 IF I"DO THEN LET DO-J 
220 UNPLOT A(J ),21 

225 UNPLOT fl(I>,21 

230 IF fl< J )>R<I> THEN GOTO 400 

290 FOR G-0 TO fi<I>-A< J > 

320 PLOT A< J>+G,22 

323 PLOT RCI)-G,20 

325 UNPLOT R(J)+G,22 

327 UNPLOT R(I)-G,20 

330 NEXT G 

340 NEXT H 

415 LET X-R< J >-fl(I) 

420 FOR G-X TO 0 STEP -1 
425 PLOT fi< J)-G,22 
430 PLOT A<I )+G,22 
440 UNPLOT fl(I>+G,22 
445 UNPLOT R<J)-G,22 
450 NEXT G 

470 NEXT H 

471 FOR J-l TO 3 

472 LET fi<J>-25+J*2 

473 PLOT R<J>,21 


474 NEXT J 

475 GOSUB 1000 

479 FOR Q-l TO 20 

480 PLOT fl<DO >,21 
490 UNPLOT fl< DO >.21 
500 NEXT Q 

550 LET L-L+l 
560 GOTO 165 

1000 PRINT RT 1,0;"YOU HAVE ";MO 
;" POUNDS" 

1010 PRINT RT 2,0;"HOW MUCH?" 
1020 INPUT M 

1030 IF M>M0 THEN GOTO 1010 
1050 PPINT "WHICH DODGE? <1 TO 3 

>" 

1060 INPUT S 

1070 IF DO-S THEN LET MO-MO+M 
1080 IF DOOS THEN LET MO-MO-M 
1090 IF MQ<-0 THEN PRINT 11,10;" 
YOU""RE BUST" 

2000 PRINT "YOU NOW HAVE ";M0;" 
POUNDS" 

2010 RETURN 
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D R ELIOT GINGOLD, lecturer and follows it for successive genera- importance of the random element. 

in genetics at Hatfield Polytech- tions. The variation in colour is con- “This so-called ‘genetic drift’ is an 
nic, has sent a Spectrum pro- trolled by two variant forms of a single important factor in discussions of evolu- 
gram to simulate the development of gene, with the black-inducing gene tionary theory. Many scientists believe 
mixed populations under evolutionary dominant over yellow. that such random events are the basis 

pressures. He believes that the use of The user is invited to fix the popu- for many of the observed differences 
computers for the purpose has the great lation size and the differing selection between species,” he says, 
advantage over mathematical equations pressures on the two types. An interest- The listing is aimed at A level stu- 
that random influences can be included ing finding is that small populations dents but its avoidance of technical 
in the model. suffering no selection pressure eventu- terms should assure it wider usefulness. 

The listing sets up a small, local ally will resolve into entirely black or In the listing, the mice should be en- 
population of black and yellow mice yellow types. Such results show the tered as graphic M. (48K Spectrum). 


36 


SINCLAIR PROGRAMS May 1983 


1 DIM a*(250). DIM b(51) 

20 go sue 9000 

2-t BORDER 7. PRPER 7; CL 5 

=s PRINT INK A;"This program s 
imulates a local"'“popuiation of 

mice. Two types.are found,bla 

CK mice -- a . and yellow m 

ice -- INK S; ' INK 2; "Th 

e difference is due to a gene"'" 

with two alleles* Y(blacX) is. 

dominant over y (yellow)..This 

means that yy -- black"'" y 

y. 1 c * yy -- yellow" '' 

Remember a £ mouse could 
, Y iC<. or ">y, a carrier of yet 
low* Yellow alleles can hide i 

n black.nicel"'' ink 0 ; inuer 

SE 1;“ Press any key to continue 

26 IF INKEY*="" THEN GO TO 26 

27 CLS . PRINT INK 2;"You may 

follow the changes in.this pop 

ulation during up to 59.genera 

tions."" INK l; "Each generation 

the population.wi li at first 

double. But not.all can surviv 

e. You will be.asked to fix th 

e maxiaun nusbers.capable of s 

urviving." 

28 PRINT INK 2; "Three situati 

ons are possible,.selection ag 

ainst yeltow-" ' " i . e .- bt a c fc m 

ore fit to surviveselection a 

gainst black .. i.e. yellow 

more fit to survive'" "or no sele 
ction —- i.e. both types equ 

al 2Q PRINT INK 2;"YOU can try an 

y of these ,.and if you have se 

iprtion you"'detenoine its 
strength.' INK 0; INVERSE A;'" 
Press an y key t o start. 

30 IF INKE\*="" TMEN GO TO 30 

4-0 BORDER 7: PRPER 7. CLS 

50 PRINT RT 7,0; INK 2;"Input 

the maximum population.that th 

e environment can hold."'" (can be 
up to 12S)“ 

S2 INPUT p0. IF P0<1 DR P0>125 
THEN PRINT INK 0; "Must be bet 
ween 0 and 125.GO TO 52 

55 CLS : PRINT RT 7,0, INK A;" 
Selection could be “''" Against 
yellow INPUT 0"" Against bl 

ack INPUT 1. Or no select 

ion INPUT 2" 

57 INPUT d. IF d<>0 RND d < > 1 R 

ND d<>2 THEN PRINT INK "Must 

be 0, 1 or 2"; GO TO 57 

58 IF d=2 THEN GO TO 75 

60 CLS ; PRINT RT 7,0, INK 2; " 

Uhat is the strength of.select 

ion measured as a X ?" ■’ '" 1100.'.; w 
ould mean that the unfit" ' "type 
is lethal)”''"Input a number up 
to 100 " 

62 INPUT S?. IF SP<0 DR spjl00 
THEN PRINT INK 0,' ' "Mus t be t-etw 
een 0 and A00": Gb TO 62 

70 LET S =100 —sp 

75 CLS : PRINT RT 7,0, INK 1;" 
Jhat is the starting X of" "yell 

ow alleles? (Xy)•■''" (Remembe 

r that many will'""be hidden in 
black mice! )"' In put a number u 
p to 100" 

77 INPUT y. IF y <0 OR y>100 TH 
EN PRINT INK 0''"Must be between 
O and 100", GO TO 77 
100 LET n =1: LET p=p0 
iie y=y-^i00: let b(i)= y 

200 ?~ E T sb = 1; LET sy =1. IF d=0 
THEN LET sy=5X100 

201 IF d=l THEN LET Sb=S/100 
215 BORDER 7: PRPER 7: CLS 
=20 LET n=n+l. GO SUB 1000 
26S GO SUB 2000 

ro 6 iiJ F n=S1 THEN PRUSE 120 GO 

270 POKE 23692,255 

2 80PRINT BRIGHT 1; INUERSE 1; 

PREsS M FOR MORE ,G FOR G 

235 GO SUB 5000 

£2 0 ~?£ 1*=“®" OR i*="M" THEN GO 


it* = "G" THEN GO 


TO 215 

300 IF i*=“g" 

TO 310 
305 GO TO 285 

310 GO SUB 6000 

311 GO SUB 5000 

TO S 215 i4= "®" OR i*="M" THEN GO 
TO 0 4-0^ i * = "n" OR i * = "N" THEN GO 
PER S 7 IF slgp" S '‘ ° P 1 THE N PR 


--- - STOP 
350 GO TO 311 
1009 PRINT RT 0 


•7; INK 2, BRIGHT 


1; "NEXT GENERATION l ”;n-1; " ) " 
1005 LET ym=0 LET cd=0. FOR f=1 
TO 2 *P 

1910 LET x=RNO. LET v =R NC 
1020 LET 2=(X>=y)+(v>=y) 

1930 LET Cd =cd +Z 

104-9 LET a$(C) =5TR$ tz) 

104-5 LET i =0: IF a*if)="0" THEN 
LET i=6. LET y»=y®tl 
1046 PRINT INK i "4 '; 

1050 NEXT f 

1060 LET y = 14- *p - c d > y (4-*p) 

1065 PRINT RT 19,0; INK 2; 8RIGH 
T l;y®," yellow mice out of (2 
*P)'C4*p-cd);" yellow alleles ou 
L ,n f “ .1A *0 « 

1070 RETURN 

20O0 PAUSE 150: PRINT RT 0.7, IN 

K c§n Iupuiue a ' FLBSM 1; - N6T fiLL 

;i? 5 b t!i b s? = £ *■> -«« 

2006 LET r —p0✓(s b* bm tiyuyn) 

2007 IF r >1 THEN LET r=l 
2010 FOR F=1 TO 2*P 
2060 LET x=RND 

‘ f * >"C") RND (x >r *sb 

>> T HEN get Cd = Cd-URL (a * ( f) ) ; L 
ET bm1=bm1-1. let a*ff)="d". LET 
PS=ps-l PRINT " 

t (a*tf) =“0 m rnd (xjrssy 
)) THEN LET yml-yml-1. LET a* If) 
= d . LET PS=PS-1. PRINT " 

2075 IF^a*U) THEN PRINT OU 

2080'NEXT f' 

2082 PRINT RT 20,31," " 

2083 PRINT RT 0,0; ” 

2084- IF bm =0 THEN PRINT RT 19,0, 

b»>0 THEN PRINT RT 19 , O; 
_p‘ R , I GHT l, INK 2; bml; " BLACK 5U 
R L I ,* ,ED FPOM ";bm, INK 1, TRB (2B> 
/INT 1100ib»l/bm + .5) ; "X" 

2066 IF ym>0 THEN r*R±NT RT 20,0. 

BRIGHT l; INK 2.;yml;" YELLOU SU 
RUIUED FROM ",y®. INK 1,TAB C26) 

.INT (100*y»l,y»+.5);"X" 

2390 LET y = (2 *P S-Cd) / (2 *pS) PRI 
NT 5RIGHT 1. INK l,"Xy=",(INT (y 
*1000 +.5) )/10," (Last Generati 
on ="; (INT (b(n-l) U000 + .5) ) /10, 
**» " 

2095 LET b (n:< =y 

2098 LET p —p 0: IF ps<=p© THEN LE 

T p=ps 

2100 RETURN 

5000 IF INKEY * = "" THEN GO TO 500 

0 

5020 LET I* = INKEY $ RETURN 
5000 BORDER 1 PRPER 1: CLS IN 
K 7: PLOT 4-7,156: DRRU 0.-120: D 
RRU 200,0 

5010 FOR f =36 TO 156 STEP 24- PL 
OT 4-5, f: DRRU -3,0. NEXT f 
6020 FOR f =47 TO 24-7 STEP 40 PL 
OT f,3S DRRU 0,-4. NEXT f 
6030 PRINT RT 9,0,"Xy";RT 2,2;"1 
00",RT 5,3;”60";RT 8,3;”60",AT 1 
1,3; "4-0", RT 14,3; "20", RT A7.4; "0 


tion " 

5050 PRINT RT .1.6; INUERSE 1. "Po 
PKlation max. “,p0 

5060 IF d=2 THEN PRINT RT 0,10. 
INUERSE l;"No selection 
6070 IF d=l THEN PRINT RT 0,2, I 
NUERSE 1,INT tsp);”X selection a 
gainst biaci" 

5080 IF d=9 THEN PRINT RT 0,1; I 
NUERSE l;INT (sp);"X selection a 
9ains t yellow" 

5100 PLOT 46,120*b ' 1) +36: DRRU O 
UER 1;3,0 

5110 FOR f=3 TO n. PLOT OUER 14 
2M*f,120*b(H +36: NEXT f 
5115 IF n =51 THEN GO TO 6200 
6120 PRINT RT 20,0, INUERSE 1;"P 

ress ia for more.n for new star 

t , s to stop*' 

5130 INK 0: RETURN 

6209 LET n =1 LET b(l)=y 

6210 PRINT «T 19,a, INUERSE 1; F 

gRSH 1, GRAPH FULL "* FLASH 0; "P 
cessing a» continues run, but.r 

iJii , 'iaK% ap &E4G5K e “'' un ' s=s,o ' > >" 

IlSfo^SiS iifiSiflfliS-iiSiSill 0 

BIN^01111100,BIN 10000000 f BIN 11 

901© FOR f=0 TO 7 
9015 READ gr 
9020 POKE USR "m"+ f,g r 
9025 NEXT f RETURN 
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T HE INVADERS are coming. 
You are the doomed defender of 
Earth, bravely blasting at the 
overwhelming might of the venomous 
Venusians. They are unstoppable but 
you are determined to litter the skies 
with their smouldering carcases. Ma¬ 
noeuvre left and right with 5 and 8 and 
fire your neutron bolts with 0. 

IK Invaders was written by G 
Brooks of Knowsley Village, Mersey¬ 
side. In lines 30 and 60, the brackets 
contain graphics instructions. Ignore 
the semi-colons, enter the As and 6s in 
graphic shifted mode, and for S read 
Space. (IK ZX-81). 


10 LET X-19 
20 LET Y»? 

30 PRINT FIT 17,0; "<fl; three S;A 
;three S;A;thre* S;A;thr«* S;A>" 
40 FOR A-10 TO 17 STEP O.02 
50 PRINT FIT A, RND#14+1; " 0 " 

60 PRINT RT X, Y; "< S; 6; irivers* 
S;6;$>" 

90 IF INKEY*- ,, 5" THEN LET Y-Y- 

1 

100 IF INKEY*-"8" THEN LET Y-Y+ 

1 

110 IF INKEY*-”0" THEN GOSUB 16 


0 

115 IF Y<0 THEN LET Y-0 
120 NEXT fl 

130 PRINT "INVADERS HAVE LANDED 

140 SCROLL 
150 STOP 

170 FOR X-18 TO 9 STEP -1 
180 PRINT AT X,Y+2; 

190 PRINT AT X,Y+2;" " 

200 NEXT X 
210 LET X-19 
220 RETURN 


1 REM 000000 

5 CLS 

6 LET R=3 
10 LET S=0 

15 LET X=16514 

16 LET L»INT <RND*100> 

20 PRINT RT 21, 0j" ";TRB 4+INT 
< RND#2 ") ; " " 

25 IF L<20 THEN PRINT RT 21,IN 
T < RND#4 " " 


30 PRINT RT 12, fi; 

40 IF IJSR X*128 THEN GOTO VRL 
"150" 

50 PRINT RT 12,Rj"V" 

60 LET R*fl+<INKEY$~"8" RND R<1 
5>-<INKEY*»"5" RND R>0) 

70 LET S-S+l 
80 SCROLL 
90 GOTO 16 

150 PRINT "GRME OVER S 



R ALLY is a very traditional type of 
scrolling race-track game but its 
’ inclusion of machine code will 
make it of interest to novice program¬ 
mers. First enter the listing as printed 
and then the following commands, with 
NEWLINE between each one—POKE 
16514,42; POKE 16515,14; POKE 
16516,64; POKE 16517,78; POKE 
16518,6; POKE 16519,0; POKE 
16520,201; POKE 16510,0. 

The program can then be RUN, your 
car appearing as V and requiring to be 
steered to avoid the side of the road and 
the occasional obstacles with keys 5 and 
8 . 

The listing was composed by Damon 
Roberts of Romford, Essex. (IK ZX- 
81). 
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W E DO NOT understand how 
this game can be so addictive. 
The basic concept could 
scarcely be more simple. It is a Break¬ 
out-type game in which you are re¬ 
quired to blast away an advancing wall 
before it crushes you. There are tactics 
to be employed, like hitting foundation 
stones and bringing down a series of 
bricks above them, and attacking the 
next wall in the series through the gaps 
in its predecessor; the multi-coloured 
bricks are very pretty; the finger work 
could not be easier, but why do we 
become so wrapped up in the thing? 
Perhaps we are just claustrophobics. 

The game was submitted by D Valen¬ 
tine of Mansfield, Nottinghamshire. 
(16K Spectrum). Graphics notes: 

1110—Graphic A 
6010—Graphic B. 



-IIGH SCORE 

1 100© LET r 
100S LET dx« 
~1*ir <=S' 
1010 LET 
t«M I E l 
1030 LET 


I 1060 IF ».*<>•••• THEN LET b = b + l 
1 3 TO 1100 

1070 GO TO 1010 
- - . . - ME| 

LeT c=i 


S010 PRINT INK 2, PAPER 5; BRII 
r 1 ; AT 0, i ; OVER 0, 

302© BEEP .0B,31-i 


NT IRNDr6fl) , «**, »l;HT 0,0. 
:",s,"HIGH SCORE : s (d*2- 

1125 PRINT RT 0,x; 

1.130 LET t.»USR USR “C" . II 


I 2010 LET 5}l=y 
202© LET y=y«-l 


“ 300 i 

1 .-010 L_. 

2020 LET 

3013 LET 

3030 - • 

000 


3036 IF 
P .01,lkl».*-x 
, -;037 PRINT B1,RT 0,6, 
3040 PRINT RT y , lx; " 


AMD r=3 THEN OO TO 1 
3 AND lx<>rx THEN LET 

:p . 01 , iofx — ix 

a THEN LET »=**S SEE 


til ^."pRPE&'Bf^glH 1 '!,^ 

JSO0 LET X=d»2. LET U =X-1 

ilil IokI TO 6540 

2; INK 9, RT 0,0 

i 1 to t*** spoke trble 

'line w* E 110 Mfi5 ° ”»RT 1,20 
SS15 POKE 23658,0 

5520 IF s>=s(y> THEN LET *»<x>=S 
*(y): LET s (x > ss (y > : LET *»<y>=« 
f.^LET *(Wi=S. GO TO 6540 
=530 IF THEN LET SIIX) =W 


SCORES 
6560 PRINT RT 4,0, 

6570 FOR i«l TO 5: PRINT TRB 5," 
LEVEL i ' ■ ' . NEXT i 
*580 PRINT AT 3,0 

5390 FOR i=l TO 10 STEP 2: PRINT 
OVER 1,TRB 14; BRIGHT l;s$(i);T 
RB 25, Hi)"’: NEXT i 
5595 PRINT RT 4,0 

*= 2 . TO 10 STEP 2 PRINT 
OVER 1, TRB U;j*(i);TRB 25, ill) 


GO TO 200 


7030 NEXT a 

slel PfiPEB N B: INK a BORDER 3: C 

5?'?, P ?;? r D? T pSp?i 

EHOLITION" , 

6020 PRINT The »i» Of Inis 

it to. DEMOLISH the ad 

Van c in? mil. before it re 

3030 S p{tlNT . To launch th 

r ball-" 

^’SPRCE 1 ^ «s 

3050 PRINT HI;RT 0,0; INK O, PRP 
ER^SELECT DIFFICULTY ? (i-5) : 
3055 LET Hf eINKEY % 

S To e B030 * , * < " 1 OR THEN OO 

9070 LET dsORL v$(l) 

808© PRINT HI;RT 0,0. INK 1 PRP 
ER 6,- PRESS'RNY KEY TO 5^Rt”c 

AHE PRUSE 1: PRUSE 0 

8893 GO TO 500 

1000 RESTORE 9200: FOR a=USR "a” 
TO USR ”t"H7: RERD X POKE a,x 
NEXT a 

5010 OIH S*(10,10): DIM *tl0> 
9020 FOR a=1 TO 10: LET 

.-: NEXT i 

3030 RETURN 

9200 DRTR 0,126,126,126,126,126, 

<26 a 

3210 DRTR 6,24,96,285,255,96,24, 
3300>DRTR 33.0,65,1,32.0,126,254 
<, 1^6,200,35,13.32,-6.1,255,25S , 2 
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CAVE ADVENTURE 



5 REM INITIAL PROG 
10 LET P-INT <RND*10H4 
20 LET A-1 NT <RND#15H5 
30 LET B-INT <RND*10>+5 
40 PRINT "POWER*";Pj" ARMOUR H 
ITS-";A;" BODY HITS«";B 

10 PRINT "CAVE ADVENTURE" 

20 PRINT "THE CAVE IS VERY DAR 
K INSIDE AND YOU CAN JUST SEE" 

30 PRINT 

40 PRINT "WILL YOU ENTER? <Y/N 

>" 

50 INPUT A* 

60 IF A*-"N" THEN GOTO VAL "50 

0 " 

70 CLS 

00 LET P-INT <RND*3> 

90 IF P-VAL "0" THEN GOTO VAL 
"150" 

100 IF P-VAL "1" THEN GOTO VAL 
" 200 " 

110 IF P-VAL "2" THEN GOTO VAL 
"300" 

150 PRINT "ENTER POWER" 

153 LET E-INT <RND*12> 

155 INPUT M 

156 IF M>E THEN PRINT "YOU KILL 
ED TWO GIANT RATS" 

160 IF M<E THEN PRINT "LOSE FOU 
R HITS. GIANT RATS ATTACKED" 

170 GOTO 450 

200 PRINT "THE CAVE HAS NO MONS 
TERS" 

220 GOTO 450 

310 PRINT "A DRAGON ATTACKS. LO 
SE 7 HITS" 

320 GOTO 455 

450 PRINT "THERE IS *50" 

455 PRINT "WILL YOU GO FURTHER? 

460 INPUT S* 

465 CLS 

470 IF S*»"Y" THEN GOTO 80 
500 PRINT "YOU ARE AT THE ENTRA 
NCE" 


P AUL FRAVIGAR of Skegness, 
Lincolnshire has sent an adven¬ 
ture game for the IK ZX-81. As 
you might expect, some of the work has 
to be done with pencil and paper and 
the short initial program must be used 
to set the random values of your power 


reserves and the number of armour and 
body hits you can sustain. Your armour 
naturally must be destroyed before you 
suffer any body hits. Run the initial 
program, lines 5 to 40, note the given 
values, clear the lines, then enter the 
main listing. 


As you explore the cave, note the 
treasure you find and the hits you sus¬ 
tain. When the damage inflicted by the 
various monsters is approaching the 
fatal level, you should turn and run. 
The game can be played by more than 
one person. 
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T HIS EXCELLENT game for the 
16K Spectrum sends you flying 
low over enemy territory armed 
with rockets and bombs, with orders to 
destroy as many enemy fuel dumps and 
aircraft as possible before your fuel—or 
your luck—runs out. 

Under the control of keys 5 to 8 you 
can climb, descend and fly left or right. 
You release bombs with 9 and fire 
rockets with 0. The program occupies 
only about 5K and there is therefore 
plenty of room for additions to the user- 
defined graphics. 

ZX Defender is the kind of vivid, 
entertaining game you want to amend, 
adapt, expand and generally play 
around with. The only serious problem 
is that it is a little slow but there are so 
many hazards and targets on offer that 
any armchair pilot will find himself 
fully-occupied. 

It is a first-class listing which all 
Sinclair programmers will enjoy. It was 
written by Stephen King of Kenning- 
ton, Oxford, who has included a num¬ 
ber of useful REM statements to help 
with the graphics. 



10 LET BE =0 
20 GO SOB 9000 
30 GO TO1000 

40 rem lafciaH 

50 LET FU =FU—2 
50 POR T=i TO 15 
70 LET 1=15+ CSGN S) *T 
80 LET Q*=SCREEN* (U,I) 

90 IP G>$ = " •• THEN PRINT RT U , I 

; INK 0; BEEP ,005,T. PRINT 

RT U,I, INK 1;” ": NEXT T RETUR 
N 

100 IF Q*=**>** OR 0* = '*<" THEN GO 
5UB 8O00: RETURN 

110 IP THEN LET PU=FU+17 

: FOR F = 1 TO 8 : RANDOMIZE f: LET 
l=USR USR ”a": NEXT P: BEEP - 1, 
4-0. RRNDOHIZE 57: LET l =USR USR 
"a": PRINT RT U,I;** “ ; RETURN 

120 IF q$="r OR q* = "J " THEN LE 
T SC=SC+7: GO SUB SOOO: RETURN 
130 PRINT RT U,I;” RETURN 

200 BEEP .02,50 

210 PRINT RT 21-(D/8J,(31 AND 5 
= 1^;'0 ,; RT 22- (D/8.t , (31 RND S=li 

* 220 RETURN 
S00 LET fu = fu-l. REM 
510 FOR t=1 TO 14—V 

530 LET R=U+T lSl ' N &> ** 

GO*TO I S7| CREEN * <R - 1 ' " THEN 

550 PRINT RT R,I; INK 2; BE 

EP .005,T: PRINT RT R,I; INK 1;" 

550 NEXT T. RETURN 

570 IF SCREEN* lR,I)<>'®" THEN 
PRINT RT R, I; " **: RETURN 


560 LET FU=FU+11: PRINT RT R,I; 
CHR* (14-4- + (RND * 4 -) ) 

590 FOR F=1 TO 18: RRNDOHIZE P 
600 LET L=USR USR *R": BEEP .00 

5 .F 

610 NEXT F 

620 RRNDOHIZE 57. LET L =USR USR 

630 PRINT RT P,X;" ** 

64-0 RETURN 

1000 FOR B=0 TO 1 STEP 0: LET I* 
=INKEY5: IP I*=“* THEN GO TO 103 
0 

1005 IF I$=“Q" THEN LET S=1 
1010 IF I* ="0" THEN GO SUB 50 
1015 IF I*="5“ THEN LET S=-l 
1020 IP I * = *' 9" THEN GO SUB 500 
1030 IP S = -1 THEN POR F=1 TO 8: 
RRNDOHIZE USR USR "C": PLOT 0,0: 
DRRU 0 , — D + 4-8 : NEXT F. RANDOMIZE 
: IF RND>.7 THEN PRINT RT RND+ ( 
21 - ( d X8 J ) , 0, " > ** ; IP RND > . 3 THEN 
PRINT RT iRNDJ(21— (dxS> 1 yS) ,0 ;"J 

104-0 IF S =1 THEN FOR F=1 TO 8: R 
RNDOMIZE USR USR "F". PLOT 255,D 
: DRRU 0, —D +48: NEXT F: RANDOMIZ 
E : X»» RND >-7 THEN PRINT RT RND* 

(21-(4/8))IF RND>.8 THE 
N PRINT RT (RND*(21-(d/8))/2),31 
> “ C" 

1060 IF d >50 RND d<190 RND SC<50 
0 RND RND >.1 THEN GO TO 1900 
1100 LET d =d + <10 RND d<601-(10 R 
ND d >190) 

lllO IF SC>500 THEN LET FI=FI+1; 

LET SC=0. PRINT RT 21,30, INK 5 
; PRPER 0; FI; PRINT RT “ 

*•: REM 20 space 
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1120 GO SUB 200 

1990 PRINT RT U,15-s; n " 

2000 LET D =D +3 — INT (RND*7) 

2010 LET U=U+ f INKEY'4 = "6" ) — (INKEV 
*: ,, 7 ,, )+(U<0)+(1.2 AND FU<0.' 

2020 IF SCREEN* (U , 15)0" ** THEN 
GO TO 6000 

204-0 PRINT RT U,15;C-HR$ (153+(S> 

0 ) ) 

2080 LET FU=FU—.7-CINKEY*="7") 
2090 IF FU >0 RND FU<240 THEN PRI 
NT RT 19,6; INK 4-; PAPER 0, e $ l T 
O sc/25);flT 20,6; INK 2, PRPER 0 
;E4( TO FU/10);“ " 

5000 NEXT 3 

6000 PRINT RT U , 15; CHR $ (144+(RN 

D *5 ') J FOR F =210 TO 255 : REM HEM 

6010 RANDOMIZE F 
S020 LET L =U5R USR "A" 

&03O BEEP ,0S,F/5 

604-0 NEXT F: INK 9. PRPER 1: LET 
5C = SC+■ (FI*500? 

6050 C-LS . PRINT RT 2,2; "YOU SCO 
RED " . SC- 

5060 IF 5C>BE THEN LET BE=SC 
6070 PRINT RT 4,2,"BEST SCORE 
BE 

6380 PRINT 'TAB 10;"Controls" 
6090 PRINT '" 5,6,7 & S -Cursor 
Keys " 

6100 PRINT '" 0: -Fire.9: -Drop 

bote bS " 

6110 PRINT ©=Fuel,E3=l0 Point 

S,<>=3" 

6120 PRINT Hit any Key for 

a new game" 

5130 FOR F=1 TO 56 

6140 IF INKEVtO"" THEN GO TO 20 
SISO LET a*U5R USR "C" 

6160 NEXT f 

6170 FOR F = 1 TO 56 

6160 IF INKEV $<>**" THEN GO TO 20 
6 190 LET 3 =USR USR “F" 

6200 NEXT F 
6210 GO T O 6130 

Sffe PRINT^npfcHR* (144+(RND 
§010 FOR F=1 TO 10 

3020 RANDOMIZE F; LET L=U5R USR 
"fl " 

S030 BEEP ,003, F: NEXT F: LET SC 
= SC+3 

3040 RANDOMIZE 57; LET L =USR USR 
"A" 

8050 PRINT RT U # I;“ ": RANDOMIZE 

8060 FOR G=I-S TO I+S STEP S 

3070 FOR H=U-(U>0) TO U+l 

3080 IF RND>.7 THEN PRINT RT H,G 

S090 NEXT H; NEXT G 


3100 RETURN _ 

9000 RESTORE : REH BBBBBS 

9010 LET FU =200: LET S = 1 

9820 LET £* = ".—**™**«^^*^^_ 

" ; 2® graphic shift 

3030 LET SC- =0: LET FI=0 
9040 LET D=S5: LET U=2 
9050 PRPER 1: INK 1; BORDER 0: C 

LS 

9060 BORDER 0: C-LS 
907© IF BE >0 THEN GO TO 9120 
9080 LET TOT =0: FQR F=USR "A" TO 
USR "M"+7 

9030 READ R: LET TOT=TGT+A 
9100 POKE F,R 

3110 NEXT F. IF TOT 0 9572 THEN P 
RlfTT |NK p 3; "PROGRAM ERROR IN DAT 

9120 LET L =5 
9130 FOR P —0 TO 31 

9140 LET L =L +1 — INT (RND+3) + (L <2) 
— ( L > 5 ) 

3168 FOR K =1 TO L 

9170 PRINT AT 16-K,P; "■•* 

9180 NEXT K; PRINT AT 15-L,P; 

: NEXT P: REM GRAPHIC L 
9190 RANDOMIZE 57: LET K=USR USR 
'A" 

9200 FOR P=0 TO 31 

9210 PRINT AT 16,P; PAPER 6; : 

REM G "M" 

9220 NEXT P 

9230 FOR f =17 TO 21 

3240 PRINT AT f.B; INK 0;"—■ 


9470 IF BE<625 THEN PRTNT AT 18, 
1; INK 6; PAPER 0;"BEST "; INK 3 
, e*( TO BE/25) 

9430 PRINT AT 19,0; INK 6, PAPER 

0;"SCORE. FUEL" 

•34-98 PRPER 7: INK 1 
9S08 RETURN 

3900 DATR 62,90,237,75,1IS,92,33 
,0 

9910 DATA 33,113,35,133,200,24,- 

6,0 

3920 DATA 23<0«64,14,32,175,126 , 

31 

9938 DATA 119,35,13,32,249,62,30 
, 188 

9940 DATA 32,241,201,0,0,0,0,0 
3950 DATR 33,31,64,22,0,30,65,14- 
3960 DATA 32,175,126,23,119,43,1 

3,32 

9970 DATA 249,25,62,30,188,40,3, 

9980 DRTR 24,235,201,0,8,0,0,0 
9998 DATR 0,8,0,0,0,1,63,255,0,8 
,3,8,8,123,252,255 

9399 DATA 8,255,255,255,255,255, 
255,255,255,255,255,255,255,255, 

255,0 
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2MITCG<a©II* 

CHAMPIONSHIP 



win a fabulous wings 

HOLIDAY FOR 2 TO FLORIDA. 


VISIT THE AMAZING NEW 
EPCOT CENTRE 

Volcanic Dungeon, the addictive adventure. People have 
been known to venture into its maze of caverns to rescue the 
Princess Edora again and again. If you are one of them, or 
wish to be, then you could find yourself lying on a sun 
drenched beach in Miami for a week. Followed by a 
further week at Orlando, visiting Disney World and 
Epcot. So what do you have to do for all this? Just be the 
best Volcanic Dungeon player in the UK. that's all! Ten 
finalists will battle it out in the championship at the London 
Computer Fair, Earl's Court, in June 1983. But first you 
must prove you are worthy. 

Volcanic Dungeon is available on the 16K ZX 81. 48K 
Spectrum and Dragon 32. An entry form is supplied with 
every game. (Anyone who already owns the original ZX 
version can enter by sending a SAE for an entry form.) 

Order your copy NOW from CARNELL SOFTWARE. 4 
Staunton Road. Slough. Berks. Only £5.00 including 
P&P. Also available from good microcomputer stores. 

The 'Judges' decision is final and no correspondence will be 
entered into. All business associates of Carnell Software, 
and their relatives, are disqualified from entry. A copy of the 
rules of the Volcanic Dungeon championship will be 
supplied with the entry form. 


SPECTRUM 48K : ZX81 16K 
SIX PART ADVENTURE 



BLACK CRYSTAL 


THE QUEST IS ABOUT TO BEGIN 

The ultimate rote playing adventure lor the SPECTRUM/ZX 81 
You can became a warrior, ell or wizard on a quest to Imd and use 
the rings of creation: to destroy the Black Crystal and defeat the 
Lords of Chaos Held within six programs lies a land of fabulous 
treasures and mythrcal monsters Journey through the land ol 
Betoth. explore die castle ol shadows, descend into the 
Sliagyoths lair, search lor dramonds in the sea ol sand but beware 
ol sand sharks 1 Conlrnnt lie- lire demon m his temple, battle 
against the lords ol Cliaos and van your way to the Black Crystal 
By spiriting Black Crystal «>lo six programs we can provide nv»e 
variety and detail than any other adventure lor the Sinclair 
computers 

Real time monster hattles Superb graphics Save game leature 
All six parts are supplied together on cassette, twied with 
insnuction booklet 


SPECTRUM 48K: 180K OF PROGRAM 
IN SIX PARTS ONLY £7.50 
ZX81 16K: OVER 100K OF PROGRAM 
IN SEVEN PARTS ONLY £7.50 
WHY PAY MORE FOR LESS OF AN 
ADVENTURE 



To CARNELL SOFTWARE. DEPT 2. 4 STAUNTON RD. SLOUGH SL2 1NT 

Please send ine Black Crystal lot my. 


Spectrum 48K 17 50 

ZX8 I6K 17 SO 

I enclose a cheque postal order Ipayable lo Carnell Soltwarel lot f 
NAMF 
ADDRESS 


TRADE ENQUIRIES WELCOME 
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DEPT SP, 9 TWEED CLOSE, SWINDON, WILTS SN2 3PU 
Tel: (0793) 724317 Trade enquiries welcome 
Export Orders: Please add £1.00 per tape airmail 






»=—"-■ 

ZUCKMAN 

FROGGY 

ZX81 (16K) 

ZX81 (16K) 

•ALL MACHINE CODE 

•MOVING CARS, 

(10K) 

LOGS, TURTLES 

•FOUR INDEPENDENT 

•ALLIGATORS, 

GHOSTS 

DIVING TURTLES 

* HIGH-SCORE 'HALL 

•FOUR 'SCREENS' OF 

OF FAME' 

ACTION 

•AUTHENTIC ARCADE 

•ALL ARCADE 

ACTION 

FEATURES 

•TITLE/DISPLAY 

•ENTIRELY MACHINE 

MODE 

CODE 

ONLY £5.95 INC. P&P 

ONLY £5.95 INC. P&P 


* Fabulous Hi-Res Colour Graphics 

* Authentic Sound Effects + 3 Tunes 

* 3-D Logs. Swimming & Diving 
Turtles 

* 3 Lanes of Multi coloured vehicles 

* On-screen Score. Hi-Score. Time-bar 

* Snake. Alligators and Baby Frog 

* 'Top 5' High-Score initials table 

* Demonstration Game routine 

Your home sick frog must leap across a 
busy main road, then onto logs and 
turtles in the river to reach safety of 
the river-bank frog-homes. THIS 
MACHINE CODE GAME MUST BE 
SEEN TO BE BELEIVEDII 


ONLY £5.95 INC. P & P 



BARGAIN-HUNTERS 
READ THIS! 

Whatever your model of Sinclair computer—you can get 
HOURS of fun, intellectual satisfaction and education for just 
95p per month! 

A bargain? 

That’s Sinclair Programs magazine—the fat, glossy 
magazine that’s PACKED with original, tested programs for 
you to load and run. 

With Sinclair Programs every month you can build the 
library of programs that suits your mood: in recent issues 
we have challenged our readers with programs to test their 
skill at Sharpshooter or Laser Cannon .. . jolt their brain 
cells with Quadratic Equation or Monster Maths ... or take 
a practical turn with their own word processor program or 
graphic generator. 

That is just a fraction of what you get from Sinclair 
Programs. Each month we have 40 programs for owners of 

ZX80s, ZX81s and Spectrums. But make sure you don’t ^ ^ ^ i — 

have to hunt TOO far for your bargains— Sinclair * 

Programs always sells out quickly, so order &e a c ^ e 

yours TODAY from your newsagent, or fill _r?^(jtoTV „ ^0) 1 etvCV 

in the form below and we will send ^ r30-®* _^ c e ___ 

it direct to you, -- [ s s^ eS T> aie 

every month. ^a** 8 ^ A-x&& e - - " ^ - C^ 

S^ cV c ted^ caI ^ajtve 



^Vd>'° S Ic^ eI 


s VS**' 



itute 
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New from ... 




COSMIC RAIDERS 

(16K) 

£5,95 

You — the only terni 

lining pilot ol 

he "Earth 

Defence Fleet" — ha 

ve the daunting 

talk of 

defending the Eaith fn 

5m attack by ali 

ien beinqs 

that have already set ut 

1 a have ol their ow 

n on earth. . 




SPACE ZOMBIES (16K) £5,95 

Sftootinq through «>*ce you art ambuthed By a 
Meet of Space Zombies flying at you in formation, 
swooping and diving at you. Destroy them, if you 
can! But in destroying them, you attract more to 
the area, and the game gets progressively harder. 
* Full screen hi-res graphics * 

• 1 or 2 players * Joystick option * 
•Full sound and colour • 


MINtS OF 

pi Tupki m 

SAIURN and 

£5 95 

(16K) It 

KL1UKN 1U 
Mines of Satur 

Saluin, you oi 

n While pilotinq ; 

i routine orbit of 1 




Graphic Adventure (A8K) MAD MARTHA 



£6,95 

Poor little Henry is the hen-pecked hero of this 
domestic tale. One night he can take no more. He 
steals his wages from his wife's purse, sneaks out 
of the house being careful not to wake the 
baby or trip over the cat, and heads for the bright 
lights to have some fun. Trouble is he runs out of 
money. His only way to raise some cash is to 




wheel of the roulette table. Just as Henry is get¬ 
ting into his evening his wife — Mad Martha — 
has noticed his absence. Realising Henry has 
the housekeeping she sets out after 
axe. Guess what part you play in 
’’’ That's tight, you're Henry. Watch 


I VISA 

Iccess or Visa Card holdersH^^^^HBj 
:lephone (0344) 27317 (9am-6pm) 


• order tor post & packing 


MIKROGEN. Dept SP. 24 Agar Crescent. Bracknell. Berkshire, RG12 2BK 


£.45 

V induce 


Recognises LUST and LPRINT which allows 
programs to be listed directly from your 
Spectrum 

Also allows printout direct from BASIC listings 
without the need for special user calls 
Completely self contained with I metre of 
ribbon cable and connectors 
Works with any Centronics printer including ail 
Epsons, Seikosha 100A, OKI Microline 80 etc 
Includes driving software which allows up to 128 
characters per line 

Full range of business software available 
Fully tested and guaranteed for 
12 months 

HEmpsron 

MICRO " ELECTRONICS 

180a Bedford Road. Kempston, Bedford. MK42 8BL 


Quanity 

Item 

Price 


Centronics interface (n £4500 


Cheqoes/Posul orders should Pojt & Packa 

be made payable to b 

Kempston Micro Electronics Ltd Total (VAT inc) 

£1.00 


For Access/Bardaycard please give your card number and signature 

Card No I_I_i_I_I_i_i_I_i_i_i_i_i_i_ i i i 

Signature Q 

Address_ 

Please post to Kempston (Micro) Electronics, Dept 
180a Bedford Road, Kempston, Bedford MK42 8BL 































3O0OQG@CD©®@O0C3QG®®(o)(G|®®(M)O0OQOa 



JfeHUPS 


I NOTE We 


SOFTWARE 


TOTAL 


I from MICROPOWER LTD 

<ltl (WRITTEN ANY PROGRAMS' 

a &P WE PAY 20% ROYALTIES 

It 15*0 FOR dragon, spectrum 


JOVSTICKIS) 


8/8a REGENT STREET. 

CHAPEl AUERTON. 

LEEDS LS7 4PF 

Tel 105321 683186 Or 696343 


TWARC AS TICKED i 


TOTAL 


wm 


PlOlWlE R 


Introducing the 

A 
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JOYSTICKS (POTENTIOMETER-TYPE) 

KIT (incl. easel each £5.35 VAT BUILT each £6.75 VAT 

rrVTi cowboy shoot-out IS] ill 

kJ^-^HMachtne Code) £3.95 VAT Ml MJK'jtT' 

Full feature. TWO PLAYER, cowboy shooting ' 
game. Hide behind the cactus plants and moving 
chuck wagons until they are shot away. Shoot t 
your opponent and avoid getting hit yourself 
The second player can be the computer, but 
you set its skill from 10 levels. Excellent 

colour graphics and sound LaH"* 1 ' 

CABMAN (Machine Code) £3 95 • VAT 12%% 

You are the owner of a fleet of yellow taxis 
A rival firm competes with you, trying to steal ^ 
yourfaresandrunyouofftheroad.if they can. \T 
Ten skill levels determine the number of opposing taxis th 
speed at which they drive and the amount you earn per completec 
journey. MAXIMISE your earnings before you lose your entire 
fleet. This program is FIRST CLASS. _ 


COMPLETE your SPECTRUM with our Multi purpose 
Sound Generator and Joystick-port Board" With one 
low-cost purchase you can obtain the following 
outstanding improvements to your ZX SPECTRUM: 

• THREE CHANNEL sound effects. PROGRAM three 
independent sounds with music, gun shots, 
explosions etc. 

• AMPLIFICATION of the standard sound output. 

• TWO ports for Potentiometer Joysticks: 

• ONE port for Switch-type Joystick. 

The 'ADD-ON' uses the amazing AY-3-8910 SOUND 
Chip, which gives you an enormous range of sound 
effects. The output and volume of each channel can 
be separately controlled, with gun shots, explosions, 
drums etc., produced under the 'sound envelope'. 
MOST IMPORTANT TO NOTE - the CHIP is 
'processor independent .' This means that sounds can 
continue to be produced without any noticeable 
effect on the speed of your program! I 
The 'ADD ON' contains its own speaker and amplifier 
chip and is supplied with a cassette containing sound 
demonstration routines and some sample sounds. 
The 'ADD-ON' simply plugs straight onto the back of 
your SPECTRUM. No soldering is required. 

COMPLETE YOUR SPECTRUM NOW!! 


JOYSTICK 
INTERFACE H 

for 

Sinclair 

^^7 XX Spectrum 


THE NEW SPECTRUM 

‘ADD-ON 

NOW WITH ADDITIONAL^ 
SWITCH-TYPE ^ 
JOYSTICK PORT /'bnr-^NN 
































P ETER BEEFTINK of Calgary, 
Canada has written a short sub¬ 
routine to cause any length of 
text to be displayed neatly without cut¬ 
ting-off words halfway. The text must 
be defined initially as BS and the rou¬ 
tine reached through a GOSUB com¬ 
mand. 

The listing checks for a space and 
ensures that it appears at the end of the 
line. (IK ZX-81). 


SfTRAGGfD 


1010 LET R-LEN B% 

1020 IF fl>32 THEN GOTO 1050 
1030 PRINT B* 

1040 RETUPN 
1050 LET B=fi 
1060 LET fl-^32 

1070 IF CODE BS< R >=0 THEN GOTO 1 
10O 


1080 LET R-fi-1 
1030 GOTO 1070 
1100 PRINT B*< TO R > 

1110 IF < B-fi >>32 THEN GOTO 1140 
1120 PRINT B*<R+1 TO B> 

1130 RETUPN 

1140 LET B*=B*<R+1 TO B> 

1150 GOTO 1010 
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10 LET S-PI-PI 
20 LET R-CODE “>*' 

30 LET B~INT < RNDtCODE "?“ )+5 
40 LET OPCODE "(Graphic 5 V 
50 LET E-CODE 

70 PRINT RT C,E-2;"(Graphic W; 
Graphic 6;Graphic F;GraPhic GhsP 
ace V 

80 LET E-E-CODE "(Graphic IV 
85 IF E-CODE "(Graphic 2V<-1 
THEN LET S-S+CODE "(Graphic 1 V 
90 IF E-CODE "<Graphic 2V<*1 
THEN LET E-24 

100 PRINT RT R, B; "( Graphic VV 


120 GOTO 70 
400 LET T-B 

410 PRINT RT fl,T; "(9raPhic TV 

411 PPINT RT R,T;" " 

420 LET R-R-CODE "(Graphic 1> M 

430 IF R>C THEN GOTO 410 

440 IF fi-C RND T«E THEN GOTO 50 

0 

450 GOTO 20 

500 PRINT RT C,E-CODE "(Graphic 

2V;"*XK*X"jS; 


aaoap 

;\ A" 

_ 1 in the 


A QUA-ATTACK is an unpreten- 
tious program for the IK ZX- 
81. You are a submariner lurking 
in the depths of the Atlantic. Your 
submarine appears on-screen at random 
positions and must launch its torpedo, 
with any key, to hit the passing passen¬ 
ger ships amidships. 

When you succeed there is a satisfy¬ 
ing explosion and the number of vessels 
which managed to evade your aggres¬ 
sive attentions is indicated alongside. 

The program was submitted by Roy 
Spencer of Ilford, Essex. 

In our listing, lower-case letters in 
brackets are graphics instructions. 















K MACDONALD of Sheffield 
has sent a listing which displays 
the game of Reversi. It is a 
game for two players, black and white 
playing alternately by occupying an 
empty space next to one of the opposing 
pieces. Every move must result in the 
capture of one or more of the opposing 
pieces. Captures are made by trapping 
the opposition between your own 
pieces. They can be trapped horizontal¬ 
ly, vertically or diagonally, or in any or 
all those directions at once. When cap¬ 
tured, pieces are converted to the oppo¬ 
sition colour. 

The game ends when neither player 
can move, or when one player has lost 
all his pieces; the winner is the player 
with the most pieces at the end of the 
game. 

In this listing, moves are input by 
keying the co-ordinates of the vacant 
square, in the form “d6”. Likewise, the 
co-ordinates of the pieces to be turned 
must then be keyed. At the end of the 
move, hit the 0 key. ENTER is not 
required for those operations. It should 
be possible to devise a subroutine to 
turn the captured pieces automatically. 
Can our readers supply one? (16K Spec¬ 
trum). Graphics notes: 

All user-defined graphics are entered in 
E mode 4 to produce a green back¬ 
ground. 

100—Graphic E, graphic F, graphic E, 
and so on. 

110—Graphic H, graphic G, graphic H, 
and so on. 

410—Graphic A, graphic B. 

420—Graphic C, graphic D. 



□ 




• 




C 


immm 


5 BORDER 7: PRPER 7: CLS 
7 LET q =0 

10 FOR X =USR "a" TO USR "h“+7 
2© RERD a : POKE X , a : NEXT X 
30 DRTR 0,7,31,63,63,127,127,1 
2 7,0,224. , 24-8,252,2S2,254- . 254- .254 
,127,127,127,63,63,31,7,0,254,25 
i ,254,252,252,246,224,0 

lis D 128 255,128,128,128,128,12 
" 60 DRTR 255,1,1,1,1,1.1,1 

61 DRTR 1,1,1,1,1,1,1,255 

62 DRTR 128,128,128,128,128,12 

3,128,255_ 

90 REM 

iff lu TTri ij m 

120 PRINT INK 0,; PRPER 4; a*'b*' 
aSb$'3$b$'a*'b$'a$'b$a$b$'a$ 
'b*'as•b* 

130 PRINT RT 16,0; "1 2 3 4 5 8 

7 8" 

140 FOR a =1 TO 3. PRINT RT 3*2- 
l,16,ChR* I64ta): NEXT a 
150 GO TO 630 

160 rem aann 

170 SEEP .05,35 
180 LET a*=INKEY* 

190 IF q=0 THEN PRINT RT 4,18;" 

Slack to move" 

200 IF q=7 THEN PRINT RT 4,18;" 

Ohi te to move “ 

210 PRINT RT S,18;"POSITION: 

220 IF a*< a" OR a*>"h" THEN GO 
TO 180 

230 PRINT RT S,27;aS 
240 LET b*=a* 

250 LET a*=INKEY$ 

260 IF a$>"6" OR a * <"1" THEN GO 
TO 250 

270 PRINT RT S,28;a» 

280 LET b»=b*+a» 

290 REM jgB -KMkl 
300 LET C * = b*(1) 

310 IF c*="a" THEN LET 2=0 
320 IF C*="b” THEN LET 2=2 
330 IF C*=”C" THEN LET Z =4 
340 IF C $ = "d" THEN LET 2=6 
350 -IF- C-*="0" THEM LET i =8 
360 IF C*="f" THEN LET Z=10 


370 IF C*="9" THEN LET 2=12 
380 IF C*="h" THEN LET Z=14 
390 LET £4=6*12) 

400 LET X=URL C**2-2 
410 PRINT RT 2 , X; INK q; "A" 
420 PRINT RT 2+1 , X ; INK q;"W 
430 RETURN 

440 LET P=q. LET e=e+1: IF e X 
THEN GO TO 810 

450 IF p =7 THEN LET q=0. LET I 
ack=biack+l 

460 IF p=0 THEN LET q=7 LET » 
i te =wh i te +1 
470' GO SUB 160 
480 FOR 9=1 TO 20 

490 PRINT RT 21,0;"Enter the < 
unters to be turned.” 

500 IF q=0 THEN LET black= blai 
4-1 LET »hi te=»hi te-l 
S10 IF q=7 THEN LET UhitesUhil 
♦1: LET black=black-l 
520 LET 3 4 = INKEY * 

530 IF a * = "0" THEN GO TO 610 
340 IF a 4 <"a“ OR a*>”h” THEN I 
TO 520 

550 LET b4=a 4 
S60 LET a 4 = INKE'/4 

570 IF a 4 <"1” OR a*>”8" THEN I 
TO 560 

580 LET b*=b$+a4 
590 GO SUB 290 
600 NEXT 9 
510 PRINT RT 21,0, " 

620 GO T O 440 _ 

625 REH iBBHHHHHHI 
630 LET 2=6: LET X=6. LET q=7 
640 GO SUB 410 

6SO LET z=6. LET X =8. LET q=0 
560 GO SUB 410 

670 LET 2=8: LET q=0: LET X=6 
530 GO SUB 410 

690 LET x=S. LET X =8: LET q=7 

700 GO SUB 410 

770 LET »hite=2 

780 LET black=2 

790 LET e =4 

300 GO TO 440 

810 PRINT RT 21,0,"Uhites=";» 
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H IGH POWERS is designed to 
avoid the limitations of floating 
point arithmetic, which tackles 
only the first eight significant figures of 
a number. 

The program enables the user to raise 
a N to the power P and receive an 
answer correct to the last digit. Each 
digit of the answer is stored in a single 
dimension array and, to assist program¬ 
ming, is stored in reverse order. 

Line 80 calculates the number of 
digits in the answer and DIMs D to that 
number. Lines 100 to 170 calculate the 
number, the variable F being used as a 
carry. Lines 180 to 240 print-out the 
final result. 

The CHR$ statement in line 230 
increases the speed of the printing as 
the ROM routine for printing numbers 
is very slow. The program occupies 
only 461 bytes but an expanded ma¬ 
chine is required because of the memory 
needed for the variables. 

High Powers was submitted by J 
Stephenson of Bolton, Lancashire. 
(16K ZX-8I). 


I F YOU HAVE a printer and at least 
a IK ZX-81, you can make a neat 
little calendar with this routine from 
Simon Kelly of South Croydon, Surrey. 

As set up at present, the listing pro¬ 
duces a calendar for 1983 but it can be 
changed by altering the year in line 20 
and the value of Z in line 25. Z should 
be made to signify the first day of the 
year, on the convention that Sunday 
equals one, Monday is two, and so on. 


10 LET " JANFEBMARAPRMAYJUNJ 

ULAUG8EP0CTN0VDEC" 

15 LET Di""3120313031303131303 
13031" 

20 LET Y-1983 
25 LET Z-7 

30 LPRINT TAB Si "CALENDAR Y 
35 LET Z-Z#4-l 
40 FOR A-l TO 12 
45 LET D-VAL D*< TO 2) 

50 LET D*-Di<3 TO > 

55 LPRINT /,,,jjjj jj" ******* 


**** TO 3);" ************* 

60 LET M*-M*<4 TO > 

65 LPRINT SUN MON TUE WED 

THU FRI SAT" 

70 FOR B-l TO D 
75 LPRINT TAB Z;B; 

80 LET Z-Z+4 

85 IF Z-31 THEN LET Z-3 

90 NEXT B 

95 LPRINT 

99 NEXT A 
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10 GO SUB 8000; INK 0: BORDER 
5: LET s-cc re =0 : LET sox 
= ^5 : - i-4- 3 l , e =0 LET Sdc=0: LET 

pdu=0: LET ddC=0: LET torp=20 
LET tpy=0: CLS 

20 REM Subarine game 
30 REM © Andrew D Russell 
50 PAUSE 50 

70 PRINT RT 10,ll;"sub»arine"; 
AT 12,14-; -Jh. - 
B© PAUSE 50 

100 REM ****************** 

110 REM INSTUCTIONS 
120 CLS 

130 PRINT TAB 11; "SUBMARINE** 

110 PRINT TRB 11; ••■**»*—*• 

150 PRINT 

160 PRINT "The idea or the game 
is to destroy enemy shippi 

ng BUT avoid depth charges 

dropped by torpedo boats ' 

' these spell instant';: INK 

2: FLASH 1. PRINT "■ DEPTH ; 
FLA5H 0: INK 1 

165 PRINT -left (5) right CB) " 
170 PRINT "fire (space bar)I 

NK 1 

1S0 PRINT "•^"/'1000 points" 

200 PRINT 


, "500 points" 


210 PRINT "^',"250 points" 

220 PRINT 

230 PRINT ", ”250 points" 

£43 PR-INT 

250 PRINT "afc,"/’500 points" 

260 PRINT 

270 PRINT "«^^","S0 points" 
280 INK 0: PRINT P 

o 3 s?ar?" NT Press any Key t 

”300 PAUSE 0 
310 CLS 
365 INK 1 

370 FOR a=10 TO 21_ 

4.10 NEXT a 
500 LET ShX=26 

510 DATA , 50 , ",250 

' ",1000,"^ ",500, 

* , 250 

520 FOR 3 =1 TO (5*RND) *1 
530 READ a$,V3l 
34-0 NEXT a 

54-5 LET Step = ,25*f fINT fRND*63* 
13 ^83 

550 RESTORE 

560 INK 5; PRINT AT 0,0, 




T HE SEA is cold and as clammy 
as a witch’s kiss. Under its green 
and creeping skin you slide about 
your deadly business. You are a U-boat 
commander. Under the icy waters of the 
North Atlantic, you shadow assorted 
shipping and are pursued by torpedo 
boats and their murderous cargo. 

The format is conventional; the 


graphics are excellent—see our listing. 
Power your craft left with 5, right with 
8, and launch your torpedoes with the 
space bar. 

Submarine was submitted by A D 
Russell of Eccleshill, Bradford (16K 
Spectrum) 

Graphics notes: 

70—Graphics A and B. 


190—Graphics K and L. 
210—Graphics C, D and E. 
230—Graphics P, Q and R. 
250—Graphics M, N and O. 
270—Graphics F,G,H,I and j 
1030—Graphic U 
2510—Graphic S 
2520—Graphic T. 


600 PRINT RT 0,0; "SCORE: ",'SCOre 
PRINT AT 0,16,"TORPEDOS:";torp 
: IF torp<10 THEN PRINT AT 0,26; 

700 INK 5. PRINT AT 9,ShX+5; J" 
705 INK 1: PRINT AT 20,SUX;V 
710 LET SOX=SUX+(INKEY*="B" AND 
SUX <303 - (INKEY$ = "5" AND SUX>03 
715 PRINT OVER 1;AT 20.SUX;"rfb" 
720 PRINT ODER 0;AT 9,shx;a$ 

725 IF INKEY $ = " " AND State=0 T 

HEN LET S ta te =1: LET torp=torp-l 

726 IF s t a te =1 THEN GO SUB 1000 

727 IF S ta te =0 THEN GO SUB 900 

728 IF torp<0 THEN GO TO 3000 

729 IF SdC=l THEN GO SUB 2500 

730 IF SdC=0 AND va1=1000 AND R 
ND < . 4- THEN GO SUB 2000 

74-0 LET ShX=ShX-Step 
74.5 IF (shx < 1 AND torp <13 THEN 
GO TO 3000 

750 IF ShX<1 THEN GO TO 500 

760 GO TO 600 

900 LET POS t=SOX 

905 LET tpy=18 

910 RETURN 

1000 INK 1. PRINT AT tpy*l,pos t 
leWb print over 1 ;AT tpy,post;"A 
1034- IF tpy >10 THEN GO TO 1040 


1035 IF tpy =10 THEN LET State=0 

1036 IF tpy=10 THEN PRINT AT tpy 
•Post; 

1037 IF tpy=10 AND 5CREEN$ (tpy- 

1, pos t) <>" " THEN LET score =sco 
re+val: PRINT OVER l;AT tpy-l,po 
St; "■»"PAUSE 50; FOR y=l TO 8 
BEEP .05,10*RND*20: NEXT y: PRIN 
T m- GO TO 500 

104-0 LET tpy = tpy-.5: BEEP .08,-1 
d; RETURN 

2O00 REM **release depth charge* 

2010 LET PdC=ShX 

2010>LET pdC=ShX 

2020 LET dd C =10 

2030 LET sdc =1 

204-0 BEEP - 1, -20 

2050 RETURN 

2500 INK 1. PRINT AT ddc-I,pdc;" 

2510 PRINT OUER 1;AT ddc,pdc;"-" 
2520 IF ddc=20 THEN PRINT OVER 1 
; AT ddc,pdc; "55" : PAUSE 25. BEEP 
.25,-20: PRINT AT ddc,Pdc; . L 

ET sdc =0 

2530 IF ddc =20 AND ABS (pdc-sux) 
<5 THEN PRINT AT 20,SUX; : BE 
EP .25,-30: PAUSE 25: PRINT AT 2 
0,SUX;"HB": GO TO 4-000 
254-0 LET ddc =dd C +1 
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2550 RETURN 
300* CLS 

3100 PRINT "GRHE OUER YOUR 

SCORE IS SCORE 

3200 GO TO 5000 

4-000 INK 2. CLS : PRINT "DEPTH C 
HflRCE GOT YOU" 

4.010 INK 0: PRINT "YOUR SCORE UR 
S. s core 

3000 PRINT "DO YOU UflNT TO REPL.R 
Y tY or N> " 

5010 INPLfT as 

5020 IF .3$=“y“ OR a$="Y" THEN RU 

N 

0030 IF a s="n" OR a$ = "N" THEN ST 
OP 

504-0 GO TO SOI* 

3000 RESTORE 2000 
3010 FOR 3=14-4- TO 164- 
3020 FOR b=0 TO 7 
3030 RERD c 

S04-0 POKE t USR CHRS a)+b ( C 

3050 NEXT b 

3060 NEXT a 

3070 RESTORE 

3060 RETURN 

3000 DfiTfl 1,3,3,127,255,255,127, 
0 

3010 DATA 0,122,132,24-3,255,255 , 
24 S , O 

3020 DfiTfi 0,0,3,3,255,127,63,0 


3030 DATA 

255.255 
9030 DATA 

5.255 
3100 DATA 
4- , 252 
9110 DATA 
3120 DATA 
4,0 

9130 DRTR 
3140 DRTft 

5,0 

3150 DATA 
4,0 

3160 DATA 
9170 DATA 
5,0 

3180 DATA 

4,0 

31*30 DATA 
3200 DRTR 

5,0 

3210 DATA 


8.60.60.253.255.255.25 
0,0,0,192,255,2S5,254, 

0,0,0,24,255,127,63,31 
0,0,1,15,255,255,255,2 

1,255,249,255,255,255, 
0,3,243,255,255,255,25 
0,0,192,236,255,255,25 

0,©,0,3,255,127,63,0 
0,0., 192,-2 24 r 255,255,25 

0,0,1,3,255,127,63,0 

4.30.62.255.255.255.25 

0,0,192,224,255,255,25 

0,0,3,55,255,127,63,0 

4.28.30.254.255.255.25 

0,0,192,230,255,255,25 

0,0,120,120,120,0.0,0 
137,74,42,0,255,255,12 

24,24,24,24,24,24,36,6 

































T ransformed into a slug, you 

slither down your screen, trying 
to avoid death at the hands of the 
master gardener. The garden has been 
littered with slug pellets and the only 
way to survive is to slither around them, 
using cursor keys 5 and 8 to move to left 
and right. 

The program was devised by Neil 
Martin of Callington, Cornwall for the 
IK ZX-81. Graphics instructions are 
given in lower-case letters in brackets. 


Y ET ANOTHER alien ship is cir¬ 
cling the earth and, once again, it 
is you who has the responsibility 
for saving civilisation as we know it. 
You have been provided with a craft 
which bears a startling resemblance to a 
giant slug, which moves relentlessly 


from side to side. 

By pressing 0 you can fire at the 
spaceship. A hit will be acknowledged 
on the screen but the ship remains 
impervious to attack and the hits serve 
as warning shots rather than the usual 
scenes of destruction and mutilation. 
The game continues indefinitely. 

The program was written by Mark 
McLeod for the IK ZX-81. 


N PRINT AT 11,7; "< hit >" 

28 IF Y=X+1 AND INKEY*’ 
N PAUSE 10 

29 IF Y-X+l AND INKEY*’ 


1 LET X-INT <RND*27> 

2 LET Y-0 

3 CLS 

10 PRINT AT 1 ,X; "<«t'9d'Ay >" 

20 PPINT AT 21.Y;"<93'9sPic*'9 N GOTO 1 

4 V 33 IF INKEY* ! 

21 PRINT AT 21,Y;" " 

25 LET Y-Y+l 

26 IF INKEY*-"0" THEN PPINT AT 

2,Yj 

27 IF Y^X+1 AND INKEY**"0" THE 


AND Y< 

EN GOTO 1 

34 IF Y-28 THEN GOTO 1 

35 GOTO 20 

36 SAVE "ALIEN COMBAt" 


: "0 M THE 
"0" THE 
>X+1 TH 
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Although there are standard results 
for fitting straight lines and parabolas, 
we have not previously seen a genera¬ 
lised method—perhaps not surprising 
when one looks at the algebra involved. 
The sets of data are set up as a matrix of 
simultaneous equations and that is then 


solved by Gaussian elimination. The 
matrix is reduced to a triangular one 
and back-substitution gives all the re¬ 
quired values. 

If the user wishes, he can try fitting 
another polynomial, so long as it is of 
lower order. The only limit on the order 


is the capacity of memory but the num¬ 
ber of operations increases exponential¬ 
ly with the order and above an order of 
about 7 becomes impossibly slow. 

Curve Fit was written by I C Kemp 
of Abingdon, Oxfordshire. (16K ZX- 
81). 


5 REM PROGRAM TO FIT A CURVE 
USING LEAST-SQUARES, BY I.C.KEMP 
10 PRINT "TYPE ORDER OF POLYNO 
MIAL REQD." 

13 INPUT N 
16 LET N-N+l 

19 DIM Z<N+l> 

20 PRINT "TYPE NUMBER OF DATA 
POINT PAIRS" 

25 INPUT ND 

30 IF N<-ND THEN GOTO 43 

33 PRINT "POLYNOMIAL OF THIS 0 
RDER CANNOT BE FITTED." 

40 GOTO 10 

45 FAST 

46 DIM SC2*N-1> 

4? DIM T<N-l> 

49 REM SETTING VARIABLES TO 0 

50 FOR D=1 TO N-l 

31 LET S<D>-0 ■ 

52 LET T<D>»0 

53 LET S< D+N-l>-0 
35 NEXT D 

3? LET SY0-0 

60 FOR C-l TO ND 

63 PRINT "TYPE IN X, THEN Y" 

70 INPUT X 

71 INPUT Y 

75 REM DATA INPUT/'CALCULATION 

76 FOR F-l TO N-l 

77 LET W-ABS X*#F 

78 IF X<0 AND F/20INT <F/2> T 
HEN LET W—W 

79 LET WW-ABS X**CF+N-1> 

80 IF X<0 AND <F+N-lV2<>INT < 
(F+N-1V2) THEN LET WW—WW 

81 LET S< F >-S< F >+W 

82 LET T(F5«T(FHW*Y 


83 LET S<F+N-1>-S<F+N-l>+WW 
83 NEXT F 
87 LET SY0-SY0+Y 
90 NEXT C 

92 REM FORMATION OF MATRIX OF 
SIMULTANOUS EQUATIONS FOP THE 
COEFFICIENTS OF THE POLYNOMIAL 

97 DIM A<N,N+1> 

98 LET A<1,1>«ND 

99 LET A< l,N+l )=*SY0 

100 FOR K-l TO N 

101 FOR J-l TO N 

102 IF K+J-2 THEN GOTO 110 
105 LET ACK,J>-S<K+J-2> 

110 NEXT J 

111 IF K-l THEN GOTO 115 

112 LET A< K, N+l >«-T< K-l ) 

115 NEXT K 

120 GOSIJB 716 

121 REM PRINT-OUT OF RESULTS 

122 PRINT "SOLUTION POLYNOMIAL 
IS - " 

125 FOR L«1 TO N 

126 PRINT " + ";Z<L>;" X**";L-1 

127 NEXT L 

135 PRINT "DO YOU WISH TO FIT A 
NOTHER POLYNOMIAL OF LOWER 

ORDER? TYPE 1 TO DO THIS." 

140 INPUT G 

141 IF GOl THEN STOP 

145 PRINT "TYPE ORDER PEQUIRED" 

146 INPUT N 

147 LET N-N+l 

150 IF N<-ND THEN GOTO 97 

152 PRINT "POLYNOMIAL OF THIS 0 
RDER CANNOT BE FITTED." 

153 GOTO 145 

700 REM GAUSSIAN ELIMINATION 


SUBROUTINE TO SOLVE MATRIX 

716 DIM B<N,N+1> 

717 DIM C<N/N+l) 

800 CLS 

850 FOR L-l TO N-l 
855 GOSUB 978 
860 FOR K-L TO N 
862 LET C<K,L>-A<K,L> 

865 FOP J-L TO N+l 

868 IF C< K,L >-0 THEN GOTO 885 

070 LET B<K,J>-A<K,JVC<K,L> 

872 IF K-L THEN GOTO 880 

873 LET ACK/J>-BCK, J>-B<L,J> 

880 NEXT J 

883 NEXT K 
890 NEXT L 

910 LET Z(N)-A<N,N+1 VACN^N) 

920 FOR K-N-l TO 1 STEP -1 
925 FOR J-K+l TO N 
930 LET B<K,N+1 >-B(K,N+l >-Z< J>* 
B<K, J> 

935 NEXT J 

940 LET Z<K>-B<K,N+1 > 

945 NEXT K 
950 RETURN 

978 LET MAX-ABS ACL,L) 

980 FOR K-L+l TO N 

981 IF ABS A< K / L X-MAX THEN GOT 
0 998 

983 LET MAX-ABS A<K,L> 

985 FOR J-L TO N+l 

986 lET Z<J>A<K,J> 

987 LET ACK. J>-A(L, J> 

988 LET A<L,J>-Z<J> 

990 NEXT J 

998 NEXT K 

999 RETURN 
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THEGOOD 
COMPUTING 
BOOK FOR 


If you only buy ONE 
computing book 

THIS IS 
THE 

CLASSIC! 

An entertaining, but thorough reference source 
with the most readable, comprehensive glossary 
you’ll find anywhere. The Good Computing Book 
for Beginners is an essential A-Z of all the facts you 
need to know about computing — and none you 

don’t! 

Whether you’re brand new to computing, or an old 
hand keen to stay ahead, you’ll score by keeping this 
classic, top-selling book within reach to use again and 

again. 

The author, Dennis Jarrett, is a successful journalist 
who was also founder editor of Which Computer? 
magazine — so his first edition quickly became a 
standard work. Now this new, substantially 
enlarged and revised edition covers the latest 
trends, terms and technology with the relevant facts 
— and ONLY the relevant facts — in plain English. 







The affordable FORTH 

S FORTH A full implementation ol this very fast running language f A 

Ideal for writing fast moving arcade type games Allows the I 
full colour and sound facilities of the Spectrum to be used L. -,-1 
Future Microdrive enhancements will be made available 48K I 
Spectrum only. I I 


Chess 1.4 : 10 Levels m/c Graphic screen display 16K ZX81 oi 


spirit of the original. The Spectrum 


e 1 Based on the original game by Crowther. this -> 

game was the start of the Adventure craze ZX81 
Reviewed Sinclair User.lss.2. Features Save 
game routine as the game can literally take 8.95 
months to complete 16K ZX81 & 48K 


ABERSOFT 

7 MAES AFALLEN, BOW ST DYFED.SY24 * 


STAR TREK 48K 16K Spectrum GOLF 


Rid the Galaxy of the evil 
Klingons. Protect your Star 
Bases from attack. f'Eosy to 
p/ay Difficult to beat" 
Sinclair User Dec '82) 


Hi-Res Full colour graphics. 
A game for 1 or 2 players. 
All the features of a full size 
course THE family game 
(Reviewed Sinclair User 
Oct 82) 



■ FILL SCREEN any chxacto 

■ CHANGE BACKGROUND 

■ CHANGE FOREGROUND 

■ INVERSE VIDEOS FLASH SCREEN 
■ CLEAR SCREEN withoutchengmp 


GNASHER 16K 

THE ULTIMATE MAZE 
GAME Ghosts. Energy Pills. 
Bonus Fruit. Sound. Colour 
+ much more Starts easy. 
Becomes impossible 



Send to: R & R SOFTWARE (SP) 48 HOUR DISPATCH 

34. Bourton Road. Overseas -t- W% p/ease 

GLOUCESTER GL4 OLE Large Dealer Discounts 

Tel: GLOS (0452) 502819 


SPECTRUM 


v ©ir^staD 

Innovative ZX Software 

Have you the skill and reflexes to control a leviathan space freighter from 
lift-off to touch-down? 

Have you the business head to trade successfully throughout the length 
and breadth of an entire planet? 

Find out by becoming a 

MERCHANT OF VENUS 

where a complex economic scenario is combined with a superb graphic 
simulation to produce an entirely new concept in real time adventures 
By studying the current market and wheeling and dealing in Cyborgs, 
Robodrones and much more, you must plan your business strategy. 

But ultimately your success depends on your ability as a pilot; from lift off 
as you thrust skyward during flight as you control your ship's flight 
over mountains, cities and oceans to landing where your descent is 
displayed in incredible graphic detail. 

A compelling game of skill and strategy for the 16K ZX 81. £5.95 

ZX-81 IK GAMES PACK: Without doubt the finest quality collection for 
the IK ZX-81:- 4 full screen, fast action graphics games, all with on¬ 
screen scoring: Invaders. Astravoid. Bomber and Super Slalom, plus a 
challenging adventure. Dungeon Quest. 

All 100% machine-code. Great value at £4.95 

COSMIC GUERILLA: This classic arcade game is now available for the 
ZX Spectrum. Written in 100% machine code, with fast super-smooth 
colour graphics and sound. You must defend your laser bases against 
from incessant attack by those marauding aliens. For 16K and 48K 
Spectru ms £5.95 

THE DUNGEON MASTER: Dungeons and Dragons fans .let the 
48K Spectrum be your D M. with the first adventure program to enter 
into the true spirit of D&D. Its unique dungeon creation program allows 
you to create your own complex scenarios quickly and simply Comes 
complete with sample dungeon. Battle your way through a new 
dimension in fantasy. An infinity of possibilities for only £6 95 

Open up a whole new world of programming with our professional 
standard machine code utilities. Send for details (including printer 
samples). 

S.A.E. for our latest catalogue. Please add £0.50p p£rp and make 
Cheques/ P.O.s etc, payable to: 

CRYSTAL COMPUTING 
2 Ashton Way, East Herrington, 
SUNDERLAND SR3 3RX 
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How does the world's biggest selling micro compare with the world's 
biggest computer company's micro? The no-holds-barred test in this month's 
Which Micro & Software Review reveals some surprises. As a home 
computer the ZX81 is not only easier to use and program - it actually rivals the 
IBM on operational speed for some applications. 

Which Micro & So ft ware Review's side-by-side tests reveal other 
surprises too. Would you have thought that the Cambridge Lynx would slay 
the Welsh Dragon 32? Better read the test 

We also line up the ageing VIC 20 against the upstart Oric I. A real clash! 
Our software supplement reviews a stack of new programs-games, 
educational and business. And our listings are designed to move you off the 


IBM £2,4001 


fs 
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FAIR 

COMMRISON? 




SBSf 

^civvicao 

^WtER AITATV 


nursery slopes of programming and into areas with a touch of sophistication, 


using time-savers like letter variables and character 
statements. 

If you want some quick fun, there are five 


new 

programs on a free disc with every copy of the April 
issue. They’d run on ZX81, Spectrum, BBC, Vic 20 
and PET You really can't afford to miss April’s 
Which Micro & Software Review 

WHEN WE TtST A MICRO 
IT STAYS TESTED. 
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QUICKSILVA 

are proud to announce they 
are now marketing 

PIXEL GAMES 


TRADER 

A trilogy of 16K programmes that combine to give 
an epic 48K graphic adventure. As a galactic trader, 
you deal with some very bizarre customers indeed. 
Will you live to tell the tale? 



SUBSPACE STRIKER 

With your deadly Antimat 
torpedoes, you unleash havoc 
in the Federation spacelanes 
and tty to dive back to the 
safety of subspace, fast. 

+ ZOR - Battle of the 
robots. Fight for survival in 
this action-packed strategy 


STARQUEST 

With the help of your on¬ 
board computer, you seek 
a habitable planet amidst the 
perils of deep space. 

4- ENCOUNTER - In this 

adventure, you are snatched 
off the Earth and the space 
invaders play YOU ! 


HARVESTER A cut-throat strategy game for 2 to 4 players. 
BRAINSTORM Can you get our three space explorers across 
a river of nasty goo without blowing their minds. 


MAIL ORDER ADVERTISING 

British Code of Advertising Practice 

Advertisements in this publication are required to conform to 
the British Code of Advertising Practice. In respect of mail order 
advertisements where money is paid in advance, the code 
requires advertisers to fulfil orders within 28 days, unless a 
longer delivery period is stated. Where goods are returned un¬ 
damaged within seven days, the purchaser’s money must be 
refunded. Please retain proof of pnstage/despatch. as this may 
be needed. 

Mail Order Protection Scheme 

If you order goods from Mail Order advertisements in this 
magazine and pay by post in advance of delivery. Sinclair User 
will consider you for compensation if the Advertiser should 
become insolvent or bankrupt, provided: 

(1) You have not received the goods or had your money 
returned; and 

(2) You write to the Publisher of Sinclair User summarizing the 
situation not earlier than 28 days from the day you sent your 
order and not later than two months from that day. 

Please do not wait until the last moment to inform us. When vou 
do write, we will tell you how to make your claim and wnat 
evidence of payment is required. 

We guarantee to meet claims from readers in accordance with 
the above procedure as soon as possible after the Advertiser has 
been declared bankrupt or insolvent (up to a limit of £4.250 per 
annum for any one Advertiser so affected and up to £ 10.000 per 
annum in respect of all insolvent Advertisers. Claims may be 
paid for higher amounts, or when the above procedure has not 
been complied with at the discretion of Sinclair User, but we do 
not guarantee to do so in view of the need to set some limit to this 
commitment and to learn quickly of readers' difficulties). 

This guarantee covers only advance payment sent in direct 
response to an advertisement in this magazine (not. for example, 
payment made in response to catalogues etc. received as a result 
of answering such advertisements). Classified advertisements 
are excluded. 


THE TOMB OF 

DRACULA! 


iidJ HORROR 


ADVENTURE GAME! 


92 NORTHAM ROAD, SOUTHAMPTON, 502 OPB 


ZX-81 GAMES 

Trader 

Subspace Striker + Zor 
Starquest + Encounter 

VIC20 GAMES 

Trader 

Subspace Striker 4- Zor 
Starquest 4- Encounter 
Pixel Power 

Harvester 4- Brainstorm 


- I6K RAM £9.95 □ 

- I6K RAM £3.95 □ 

- 16K RAM £3.95 □ 


-16KRAM £14.95 □ 

- 16K RAM £7.95 □ 
■ 16K RAM £7.95 □ 

- J6K RAM £7.95 □ 

- I6K RAM £7.95 □ 


Please send me the games as ticked. 
Total cheque/RO. enclosed. 


Cheque payable to QUICKSILVA 


For the 16K ZX81 or with colour and sound for the 48K 
SPECTRUM, a superb 3D graphics adventure game! Enter 
Dracula’s tomb at 30 minutes to sunset . wander through the 
tomb's pre-mapped 300 vaults in search of the fabled Vampire's 
Treasure . . . pick up valuable silver stakes and use them to defend 
yourself against the lurking horrors . . . ghouls, zombies, pits of 
primaeval slime . See them all on the computer's plan of the tomb . 
. . when it will let you! Take a chance on a Mystery Vault . . . if you 
dare! And all the time the minutes are ticking by to sunset . . . when 
Dracula rises from his coffin and comes after youl Each of the 
infinite levels of the tomb has its own 300 vaults ... go as deep as 
you like, the Prince of Darkness will seek you out in his blood-lust! 
WARNING: people of an exceptionally nervous disposition 
should play this game only during the hours of daylight! Special 
facility lets you save a game in progress onto tape so you can 
continue it whenever you choose. 

For ZX81 with 16K RAM.£3.95 

For 48K SPECTRUM.£4.95 

Price includes ready-to-load cassette with library case and inlay, full 
instructions, postage and packing. Order today I Money refunded if 
not delighted! 

Send cash, P.O. or cheque to: 

FELIX SOFTWARE (DEPT. SP) 

(incorporating MOVIEDROME VIDEO) 

19 Leighton Avenue, Pinner, HA5 3BW. 
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Is your Spectrum 
holding back? 



Written by the sharpest minds in micro technology today, this comprehensive library of 
software will allow you to maximise the entire range of your Spectrum's impressive 
capabilities. If you demand the best from your Spectrum, cut out and mail the coupon 
today, because once you’ve unlocked all the secrets of your Spectrum - there'll be no 


This is the book for the serious programmer who wants to get right to the heart of the 
Spectrum system; its 16K ROM control program. 

Written by Dr. Ian Logan and Dr. Frank O'Hara, each ROM routine is completely 
disassembled and its function clearly explained. Great care is also taken to ensure 
the reader understands how all the routines within the ROM interact with each other. 

, The book also explains every aspect of the Spectrum's software operation in detail 

\ and makes all functions and entry points available for use in your own programs and 

\ routines £9.95 

I : I IVI ;l i f ^Tra soectrum Hardware Manual 

An essential aid for every Spectrum user, giving an easy to 
follow explanation of how this sophisticated microcomputer 
really works, written by Adrian Dickens. 

Backed up with a complete rundown on each component's 
function and full circuitdiagrams, the book reveals many 
features of the Spectrum system not mentioned in the Sinclair 
Manual. 

The book also includes p.actical hardware projects and tips 
enabling you to take fu 1 '. a j vantage of the system’s hardware 
potential. £5.95 _ 


sPEcm$ 

i^ANUAL 


Understanding Your Spectrum 

A complete overview of Spectrum 
software systems explaining both BAS 
and machine language programming. 
£7.95 


Over the Spectrum 

30exciting programs and gai 
to test you and your Spectru r 
plus many programming him 
and tips too. £6.95 


MELBOURNE HOUSE PUBLISHERS 


Orders to; 131 Trafalgar Road, 
Greenwich. London SE10 


Books 

SPECTRUM 

Understanding Your Spectrum 
Spectrum Machine Language 
for The Absolute Beginner 
L over the Spectrum 
□ The Complete Spectrum ROM 
Disassembly 

: spectrum Hardware Manual 


gue ZXB1 

Machine Language Made simple 
for the ZX80 & ZX81 £8. 

Not Only 30 Programs £4. 

Understanding Your 

£7.95 ZX81 ROM £8. 

□ Complete Sinclair Basic 

£6.95 Course £17. 

£695 □ Basic Course cassettes £2 

complete Sinclair 2X81 ROM 
£9.95 Disassembly Part A &8 £9. 

£5.95 □ Ins and Outs of the ZX81 £S. 


correspondence to: Glebe Cottage. 
Station Road. Cheddington, 
Leighton Buzzard. BEDS LU7 7NA 


All Melbourne House cassette software Is 
unconditionally guaranteed against malfunction. 
Access orders can be telephoned through on our 
24-hour ansafone (01) 8587397. 

I enclose my cheque/money order for £- 

Please debit my Access card No- 


cassettes 

iple 16K SPECTRUM 

over The Spectrum No. 1 £5.9 

£4.95 over The Spectrum No. 2 £5.9 

Over The Spectrum No. 3 £5.9 

£8 - 95 □ Programs from Spectrum 

Machine Language Book £5.9 

£Z50 48K SPECTRUM 

□ Penetrator £69 

£9.95 □ The HObblt £14.95 

£5.95 n Terror Daktll 40 £6.9 

All prices Include VAT where applicable 




Please add 80p for post and pack £_ 




MELBOURNE HOUSE PUBLISHERS 












SPECTRUM 

SOFTWARE 


TIME-GATE 

4D Space/time adventure 
in fast moving graphics 
4BK 

Author John Hollis 

THE CHESS 
PLAYER 

With Speech and 
personality 4SK. 

Author: 

Martin Wren-Hilton 

METEOR STORM 

With speech and Hi Res 
Graphics. 16K or 48K 

Author John Hollis 

SPACE INTRUDERS 

With mutants and Hi Res 
Graphics. 1BK or 48K. 
Author John Hollis 

EASYSPEAK 

Add speech or music to 
your programs 4BK 
Author John Hollis 

MINED-OUT 

With 9 levels of 
minefield, 4SK 
Author: Ian Andrew 

SOFTWARE 
FOR THE ZXS1 
WITH 16K RAM 
QS ASTEROIDS 

very good 
addictive gamer 
CC.&VG.J 

Author John Hollis 

QS DEFENDA 

better than any other 
arcade game I've seen 
(Sync.) 

Author Nick Lambert 

QS SCRAMBLE 

'. amazing, fantastic!" 
CPCW) 

Author Oave Edwards 

QS INVADERS 

lust like the real 
thingl " (C SVG 3 
Author Dave Edwards 

MUNCHEES 

Features 1 to 4 Ghosts. 

3 Munchees. Ftiwer pills 
Author A. Laird 

GALAXIANS S. 
GLOOPS 

Features two types of 
swooping Galaxian 
Author T. Beckwith 
CROAK A-CRAWLA 

With Frogs. Lorries. Logs. 
Crocodiles 
Flies. 


30 BLACK STAR 

Arcade action 
Features: Fast 3D 
graphics, fast scoring, 
four types of target 
Eight instrument 
displays, warp drive, 
resurging aliens, time 
limit. 17 levels of 
progressive difficulty 
high score table 
Author M. Sudworth 
ZX81 with 1BK RAM 

DAMPER S. 
GLOOPER 

Arcade action 

Features: Fast action. 

5 dampers increase to 6 
on later phases. 3 lives 
plus bonus lives, ever 
increasing speed, high 
score, stall frame 
features, spiral clear at 
end of games, bonus 
phase worth 5000 pts. 
high score save and 
display 

Author: R Crane 
ZX81 with 1BK RAM 
PIONEER TRAIL 

A western adventure 

Features: 20 levels of 
play "Mind Game” plus 
shooting rifle speed uses 
all keys and is measured 
against the players 
personal average 
response This game is 
based on historical data 
Author Marion Stubbs. 
ZX81 with 1BK RAM 

□uicksilva Limited. 


SPECTRUM & ZXS1 GAMES 
FROM 

QUICKSILVA 

A WHOLE GALAXY OF ACTION 
AT YOUR FINGERTIPS 

NEW RELEASES FOR THE ZXB1 S SPECTRUM 


SPECTRUM 

FRENZY 

Arcade action 
Features: Full colour hi¬ 
res graphics, sound, high 
score table, hold feature. 
5 levels of robots. Evil 
Orville the minelayer, 
exploding pods, 
progressive difficulty 
attract mode 
Author David Shea 

ASTRO BLASTER 

Arcade action 

Features: Full attract 
mode. 5 attack waves, 

15 levels of difficulty, 
rapid fire, meteor 
storms, changing aliens, 
plasma bolts, killer 
bombs, full colour hi-res 
graphics, full sound 
Author John Edwards 
16K or 48K Spectrum 

EDDIE A WORD 
PROCESSOR 

Menu driven 
prompts given 
at all times 
Drastic commands 
— e g Clear Text 
are automatically 
questioned 
Load/save 


PIXEL GAMES 
FOR THE ZX81 
WITH 16K RAM 
TRADER 

A trilogy of 16K 
programs that combine 
to give an epic 4BK 
graphic adventure As a 
galactic trader, you deal 
with some very bizarre 
customers indeed 
STOP PRESS 
| Trader now available for| 
the Spectrum £9 95 


STRIKER/ZOR 

With your deadly antimat 
torpedoes, you unleash 
havoc in the Federations 


STARQUEST/ 

ENCOUNTER 

With the help of your 
onboard computer you 
seek a habitable planet 
amidst the perils of deep 
space 

ZX81 GAMES 

OCEAN TRADER 

An adventure set in the 
19th Century. 

Vbu own and captain 
a vessel, sail between 5 
ports and deal in coal 





